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Because the ATARI printer can’t print graphic characters and reverse video, 
the following codes are used in the listings: 

Text between @ are in reverse video. 

Text between [ ] should be entered while holding down the control key. 
Text between^indicate a special key e.g.<3>HIFT^>means press shift 
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Introduction 


Everybody knows that computers are used for all kinds of serious purposes — 
financial calculations, business applications and text processing, for instance. 
They can, however, help us in another way. As the proverb says ‘All work and 
no play makes Jack a dull boy’ and it’s certainly true that we all need some¬ 
thing to keep the cogwheels of our mind turning when we are not considering 
the ‘important’ things in life. So we read books, do hobbies, and play games. 

Bruegel’s wonderful painting ‘Children at Play’ shows us that this has been 
true for centuries, if not forever. 

This book aims to provide something for everybody from 6 to 96. There 
are games to play on your own, and others to play with your family and 
friends. You will find fast action games to test your reflexes and your ability to 
control many moving objects on the screen; puzzles and brainteasers to get you 
thinking; board games where you pit your wits against the computer; and, of 
course, some wonderful arcade-type games which combine aspects of all of 
these. There are also some very intriguing games which are in a class of their 
own. 

A number of the games have been devised to give interesting and worth¬ 
while results from relatively short listings that will not take much time to enter. 

Looking again at ‘Children at Play’ a thought springs to mind. If Bruegel 
were alive today, would his painting look something like this . . . 
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Zombies in the Swamp 

Watch out! There are zombies about, and you have to cross the swamp where 
they live. To do this you must walk across on rafts. 

At the start of the game the swamp looks like this: 

WAY OUT 

t 


SWAMP 


1-l*J 

here you are, 
standing on a raft 

You are at one corner, and you must reach the diagonally opposite corner to 
escape. To put a raft next to the one you are standing on, enter T and the 
computer asks 

THROW TO THE? 

Enter N for north, S for south, E for east, or W for west, and a raft will appear 
in the appropriate position (north is at the top of the screen). To move, enter M 
and the computer will ask 

MOVE TO THE? 
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Again, enter N, S, E, or W as appropriate, to step onto the raft. 

So far so good, but beware! From time to time one of those zombies will 
emerge from the swamp and run across the rafts you have positioned. If you 
are in its way it will catch you. Luckily, zombies can’t see very well so they 
often fall off the rafts back into the swamp. 

To succeed in this exciting game you must develop your own strategy. The 
longer and more complicated your path the less likely the zombies are to catch 
you, but, on the other hand, it will take you longer to get across the swamp, 
giving time for more zombies to appear. 

Oh no! Here come those terrifying zombies again. You had better just 
hope they don’t catch you. 


1U RE!'! #### Zomt. i es 1 n f he swamp #### 

20 d i f! SHt 7 , a >, u?t i .3 # es$t 4 ■>, 1 3 ■> 

30 UI (1 PL?'; 3.3,20?t 3 3, FL?t 3 ) ,BL?t 3 ) 

40 OPEN “K.! " 

50 GRAPH I CSNh* 

60 GOTO 3600 

99 RES'! ff*# initialize ### 

: 00 pl? =" etjjjje “: 2u?= ■■ e###e" 

130 BL?=" “sFL?="...“ 

320 FOR 0=0 TO 7 
3 30 SHt 0 * 0 >=- 3; SW< 0 , 0 >=— 3 
3 40 SHt 7 j, 0 .3=- 3 : SHt 0 , S >=- 3 
350 NEXT C 

! 60 SHt 7 , S .3=- 3: SHt 0 , a .3=- 3 
3 70 SHt 0# 1 .3=3: SHt 3 , 0 .3=3 
380 FOR R=3 TO 6:FOR 0=3 TO 7 
3 90 SHt R»C '3=0! NEXT C:NEX7 R 
200 F'X=S : F'V=7 s SHt S , 7 3= I 
£30 X=8: V=7: T?=F'L?: GOSUB 3700 
220 RE T URN 

299 REfl ### 9et. command ### 

300 GET #2 # 0:C?=CHR?t C) 

310 FOR 1=1 TO LENt OS ?> 

320 IF L2f=CS?tl,I3 THEN RETURN 
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330 NEXT I: SOTO 300 

389 REIT ### SET direction ### 

400 CS$=“NESW“s GOSUB 300 
410 DX=< 1 =2 >-<, I =4;•: D't-c 1 =3 >-(. I=1 } 

420 X=PX+0X:V-PV+DV 

430 IF SW< PX+DX,F'V+OV X >—l THEN RETURN 
440 POSITION 0,23 
450 ? #6;“impossible-TRV HUHIN'3 
460 POP :SOTO 520 

499 REIT #4# execute command ### 

500 POSITION 0,23 

510 ? #6 i “ ??? “i 

520 CS*= " TIT ": GOSUB 300 
530 ON i GOTO 600,700 

599 REP) ### throw ### 

600 POSITION 0,23 

610 ? #6;“THROW TO THE ? 

620 GOSUB 400:SW<X,VJ=1 

630 IF XXV>0 THEN T*=FL$:GOSUB 1700 

640 RETURN 

699 REIT ### move ### 




700 POSITION 0*23 

710 ? #6;" I'iOUE TO THE ? “i 

720 OOSUB 400:LX=X: L't'=V 

730 IF SW<X,VX>1 THEN POSITION 0,22:? # 

Bj“ into the suiamptftftL.3 ft6ftIN ? " 

;:SOT 0 1200 

740 IF X=0 OR V=0 THEN POSITION 0,22:? # 
6;“you made 1 t-EftFO, 06ftIN ? “:6 

QTO 1200 

750 X=PX:V=PV:TT=FLT:60SUB 1700 
760 PX=LX:PV=LV 

770 X=LX:V=LV:T $=PL$:60SUB 1700 
780 RETURN 

790 REi'i choose zombie's direction ### 

800 ON RND( 0 ;'X2+0.5 60SUB 1300,1400 
810 IF SWC2X+DX,2V+DVX1 THEN 900 
820 IF SW<2X+DV,2V—DX>=1 OR SWC2X-0V,2V+ 
0X>=1 THEN 1000 
1880 RET URN 

899 REN *## swamp ahead ### 

900 ON RNDc 0 >$4+0.5 60SUB 1300,1400,1500 
,1600 

910 IF SH< 2X+DX,2V+0V)=-l THEN 908 
920 RETURN 

999 REIT ### possible move ### 

1000 LX=DX: L't-DV 

1010 ON RNLK 0 X4+0.5 60SUB 1300,1400,150 
0,1600 

1020 IF OX=-LX ftND 0V=-LV OR SW<2X+DX,2V 
+DVX1 THEN DX=LX: DV=LV 
1030 RETURN 

1099 REI'I ### zombie's turn ### 

1100 2X=6:2V=7:SOTO 1160 

1110 IF 2X=PX ftND 2V=PV THEN POSITION 0, 

22:v #gi“Liou have just been eatentftftLJ 

HSftlN ?";:GOTO 1200 

1120 60SUB 800 

1130 T$=FL$: 60SUE: 1 7E10 

1140 2X=2X+DX:2V=2V+DV 

1150 IF SW<2X,2V >=0 THEN SW<2X,2V)=-l:P0 

SIT ION 3X2X-2,3X2V-2:? #6;"R#6":RETURN 

1188 X=2X: V=2V: T'T=20$: 60SUB 1780 

1170 6010 1110 
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1133 REf'l ### again ### 

1200 POKE 764*225:GET #2*X 
1210 IF X=83 THEN RUN 
1228 GRAPHICS @5END 
1380 QX=0!DV=-1:RETURN :RE Cl north 
1400 DX=-1: DV=05 RETURN : REl'l west- 
1508 DX=0:BV=1:RETURN :REN south 
1600 DX=1 : D‘t-0: RETURN : REf'l east 
1633 REl'l If## print field ### 

1700 FOR 1=8 TO 2 

1710 POSITION XX3-3*VX3-3+1:? #6 ilS 

1728 NEXT I:RETURN 

1733 REl'l ###*# main program ##### 

1300 60SUB 108!REf'l initialize # 

1810 SOSUB 500:REf'l player # 

1 820 Tlf=TU+ is IF RND< 0 >X< F'X+F'V >>3 OR Tu 
THEN 1310 

1630 SOSUB 1100:REf'l zombies # 

1840 GOTO 1810 
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Galactic Monsters 

There it is, registering on the x-y-Gz radar. At last, you are approaching the 
Milky Way. In just 2.56 protoseconds you will be safe in your home galaxy! 

But there is danger here, and as captain of your ship, you know very well 
what it is. You keep a watchful eye on the XR6-screen. No alert yet. The 
tension is unbearable ... 2.5 protoseconds ... 2.0 protoseconds ... 1.5 
protoseconds ... oh no! There it is — 

THE VAN ALLEN SQUARE STONE BELT 

There are a number of these notorious belts, and in them lurk the dreaded 
Galactic monsters. No weapon can defend you against these vengeful creatures; 
all you can do is avoid them. 

Once the program is started and you see a VAN ALLEN SQUARE 
STONE BELT then you can move yourself by pressing: 

- to move one SQUARE upward 
+ to move one SQUARE to the left 
* to move one SQUARE to the right 
= to move one SQUARE downward 

Those terrible Galactic monsters will approach closer and closer. Your only 
hope for survival is to avoid them! If you cross a VAN ALLEN SQUARE 
STONE BELT a second time, the monsters will become more aggressive. Some¬ 
how, they seem to anticipate your every move. If they manage to attack you 
five times, you and your ship are totally destroyed. 

Good luck, captain . . . only a few protoseconds to go, and you are home 

free! 
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ltf REfi oaiactic I'jonsters 4 ###### 

20 Dill X 1 , 1 1 ,'A 11 .)»y i ika y, l > 
so OPEN #2,4,0, “K" 

40 SKHPHiUS IS 
50 yOTO SOO 

yy REfi ### initialize #44 
100 FOR 1=0 7U S 

110 RE® XPt'i STiKA 1 ,0 ,)=x: STIKX 1,1 i=V 
120 HEXl 1 







iso DffTrt 1,1 ,i,-i,i,u,u,0,-i,i 
140 DOTS - 1 ,- 1 ,- 1 , 0 , 0 , 0 , 0 , 1 , 0,-1 

1 50 ;" 9 aiact i c monsters" 

166) RETURN 

189 RElT ### player's move ### 

200 SOUND 0,20,10,15 

210 K£V=S'f ICKt 0 >t IF KEVOlS THEN DX=ST1K 

C KEv-5,0 >: DV=ST I K< KEV-5,1 :> '• GOTO 290 

220 IF PEEKC 7641=255 THEN 340 

230 GET #2,KEY:OX=0:DV=0 

240 IF K.E't— 42 THEN DX=1: GOTO 290 

250 IF KEY-43 THEN DX=-1:GOTO 290 

260 if kev=45 then dv=-i:G uru 290 
2?0 IF KEY -61 THEN DY=i:6010 290 
280 GOTO 340 

290 IF FIBSC lO-XF'-DXxS THEN DX=0 

300 IF RBSC 6-VP-DY X>5 THEN DY=0 

310 TURN=TURN+1 

320 POSITION XT',VP:? #6i“*“i 

330 XF—XP+OX: VP = YF'+DY 

340 POSITION XP,VPs? #6;“ttJJE "} 

350 SOUND 0,0,0,0 
360 RETURN 

399 RETT ### move galactic monsters #*# 

400 FOR T=0 TO 10 

410 POSITION X< T.3,Vc TX? #6i''#“i 

420 IF RNEK0XPR THEN 60SU6 500:GOTO 440 

430 GOSOB 600 

+40 POSITION Xc T I,VC. T X Y #6; "LCJ" i 
450 NEXI I 
460 RETURN 

499 RET'l fftt# move monster to player »## 

500 IF RnDc O;>0.8 THEN XT T ;>=XC~I I+S6NC XP- 
XC T > X RETURN 

510 Vc T'.J=V< T )+S6NC VP-V< I .3 X RETURN 
599 REM ### move monster random ### 

S00 H=INKRNDC0>X4> 

610 XCT T=XC T )+C H=0 HND Xc T X15 >-< H =1 FIND 
XC i )>5l 

620 VC T ,3=Vc T >+C H=2 FIND Vc T X11 >—C H=3 FIND 
VC i »1 .) 

630 RETURN 
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699 REi'i ### eaten t.y monster y ### 

?8ti FOR " 1=0 Tu 10 

710 if xp<>x< f > Ok vf \ >V(. T > ThEH 78O 

720 K=K.+1: i =10 

f"30 SOUND 0 , 200,10,15s SOUND 1,280,8,15 
,•'40 GOSUB 800 

?'50 SOUND 0,248,10, IS:SOUND 1,240,8,15 
/60 GOSuB 8u0 

SOUND 0,0,0,0: SOUND 1,0,0,0 
T'SU NEXT I 
(•‘90 RETURN 

799 REI'I ### wait mm 

800 FOR H=0 TO 100:NEXT w:RETURN 

899 REi'i ##### mam program ##### 

900 GOSuB 100:REI'I initialize # 

910 FOR 1=1 70 11 

920 POSITION 5,7 :? #6; "###########“i 
980 NEXT i 

940 SuORE=SCORE+HP-TUKN-5XK 
950 WP=NP+20:TURN=0:PR=PR+0.1 
980 XP= 10 :VP=i:POSITION XH,VPs? #6i“E'EJJ 
0 " ; 

970 FUR T=ti TU 10 
980 XI 7 1=5+7: V< 7 1=8 
990 NEXT 7 

1000 GOSuB 200:REI'I player # 

1010 GOSuB ?00: REf'l eaten y # 

1020 IF K>4 THEN 1070 

1080 IF VP=ll THEN 910 

1040 GOSUB 400: REI'I monsters # 

1050 GOSUB 700: REI'I eaten y # 

10B0 IF K< =4 l HEN 1000 

1078 POSITION 1,11 

1080 ? #6 i “your RscoreR is "iSCORE 

1090 POSITION 0,0 

1100 ? #f;,"do you want again <ESOICXJ' l i 

1110 POKE 764,255:GET #2,KEY 

1120 IF K.EY=89 THEN RUN 

1125 IF KEV078 THEN 1110 

1130 IF K.EV07S THEN 1110 

1140 GRAPHICS 0:END 


9 







Keyboard Memory 

This game uses the computer keyboard to test your memory. Eighteen of the 
keys each conceal a character, in the same way that a playing card, lying face 
down, hides its value. There are nine different characters, each hidden by two 
keys. 

The symbols of the keys you must concentrate on are shown on the screen. 

QWERTY 
A S D F G H 

Z X C V B N 

Press a key and the character it is hiding will be shown on the screen: press 
two, one after the other, and if they are both hiding the same character their 
symbols will disappear from the screen after you have pressed any other key. 

Your first few attempts will obviously be guesses but by memorizing the 
positions of the characters they show you should soon be able to work out 
where the pairs are. 


lti Kti'l Keyboard rieraory *w«W 

20 01 i'i KEV$< 1 S > ,P1 OK 1ST, KE VP I CSK 18 > , KE* 
< 1 ),OSK( lSd> 

38 OPEN #2.4,0, "K.:" 

40 GRAPHICS 18 :POKE ?5S,226 
50 SET COLOR 0,0,0 
t:0 GOTO S00 
88 RETT initialize 
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100 r #6i“ Pkeyt.oardg gmemoryig 
11 0 KEV$= " qwertyasd t ghzxc vt.n ■■ 

120 PiC*="eE, PPSSrtRTTFF663e fc 

136 FOR KEV-l Tu la 

140 PI CN=I NT< 1 8XRND< 01+11 

150 IF PIC$(P1 ON» PICNX>“ THEN 190 

160 PiCN=PICN+l 

1?0 IF PI ON .>18 THEN PICN=PICN-18 
180 GOTO 150 

190 KEVP1 KEY,KEY )=P 1C jc. PICN , PICN ) 

200 PIC^PICN,Pii.:Nl=“ " 

210 NEXT KEYS RETURN 

299 REIT display Keys 

300 PUR 1=0 TO 2:POSITION 4,2Xi+4 
320 FOR 0=1 TO 6 

830 C=8Xl + j:? #6 ;KEVS<CjCi#“ 

340 NEXT os NEXT is RETURN 

399 REl'l input and snow card XXX 

400 FOR NK=0 TO 1 

410 GE T #2,KEY:KE$=CHR$< KhY+-32 > 

420 FOR 1=1 TO 18 

430 IF K.E?=kEVSC I, I 1 HND C NK=0 OK I OMSK 
<; 0,0:0 THEN 490 
440 NEXT i 

450 POSITION 4,115? *6i“PNR0NG6 gINPUTS" 

460 SOUND 0,200,i@,15:60SUB 700 

470 POSITION 4,1 is? #6;" " 

480 6010 410 

490 RSKtNK,2T=2XINT<< 1-1 fSi+4 
500 0Sk( NK, 1 >=2X< I -3XHSK< NK , 2 >+13) 

510 HSKXNK,0>=I 

520 POSITION 0SK< NK,1>,HSKt NK,2 > 

530 ? #6jKEVPIC$<I,I> 

54W NEXT NK:RETURN 
599 REIT check cards xxx 
880 TURN=TURN+1 
610 K1 =flS'KX 0,0 ) s K2=HSK< 1,0.) 

620 IF KEVPIC*K1,K1X>KEVPIC*<K2,K2> TH 
EN SOUND 0,100,10,15sSOSUB 700:RETURN 
630 D0 nE=D0NE+1 

64U KE‘Y$< K1 ,K1 >=“ “: KEV$t K2,K2 >=“ “ 
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65@ SOUND 0,40,10,15 
668 GOSUB 700 

670 IF DONE=3 THEN ? “ Done in “;TURNj“ 
turns !“:SOUND 0,10,10,15:GOSUB 700:END 
680 RETURN 
639 REIT wait 

700 FOR N=1 TO 200:NEXT W 
710 SOUND 0,0,0,0 
720 RETURN 

733 REIT sc« mam program *** 

800 GOSUB 100: RETT initialize 4 
610 GOSUB 300:REIT display keys # 

820 GOSUB 400:REf'l input and show * 

830 GOSUB 600: REIT check Sc 

840 GOTO 810 
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Las Vegas a Go Go 

Have you ever watched someone pumping coin after coin into a one-armed 
bandit, and found yourself wondering what the fascination was? You will soon 
find out when this program turns your computer into a fabulous Las Vegas- 
style fruit machine. All the playing instructions you need will appear on the 
screen. At certain points you will be presented with a list of options, for 
instance 

INSERT, HOLD, PLAY, OR END 

Enter your choice by typing the first letter of the option you want, for instance 
P keeps your machine playing. The reels are numbered 1, 2, and 3. If you want 
to hold one or more reels, type in the appropriate number or numbers after you 
have entered H. 

Lights will flash and music play as the wheels whiz around. Have you won 
this time? Never mind, you are sure to hit the jackpot sooner ... or later! 
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lw REi'i ###** Las vegas a 9090 ##### 

20 SETCOLOR 1,0,0:SETCOLOR 2,7,i0 
30 SETCOLOR 4*12#4<P0KE 82,0:POKE 752,1 
40 OPEN #2,4,0,“K:“ 

50 GOTO 2300 

93 REi'i ### initialize ### 


U30 REfi #* screen *# 

110 OL=PEEK(560)+25b£PEEK< 561>+3 
120 POKE DL,71:POKE DL+3,S:P0KE DL+4,7 
130 POKE Dl_+S,6:P0KE DL+25,7 
140 ? “<ESCXSHIPT><CLEAR>6T las vegas a 
■3090 ESC >C=3< ESC >E=3 “ 

150 ? * EHJ6 6EJJ“ 

160 ? “ EHJC 6EJ3“ 

170 ? “ CH36EQUUEJ E0UUE36EJ 

"j" 


160 ? “ EHJR 6EV3 ecva ecva 

6EV3 6EJ3 60312" 


130 ? “ 

UU36ECJ 8 6036"' 
200 ? “ 

EH36 6L.JJ e e 0 “ 
210 ? “ 

8 0 " 
y i-'H •? “ 

3CT6CJ3 EH30EH36 8 

230 ? “ 

6“ 

240 ? " 
f" 

250 ? “ 

260 ? “ 

270 ? ” 

280 Y " 

290 ? " 

300 ? " 

310 ? “ 


6 E236EUU36EC3 E236E 
e LHjC il'C.Jj EH36 6EJ3 

8 8 6 6' 6' 6 6 6 

6EJ30EJ3 EH36 6'CJj EH 

6 “ 

6E0J EHJ6 6 

6EJ3 EHj6 6 

6 6 " 

6 6 “ 

6 6“ 

6 6 “ 

6 6 “ 

6 6 " 

EhJ6 6EJJ“ 


320 "r “ 6 C‘ 

330 REN ## text-strings ## 

340 OUT BX40),R1X 1 1,INS'; 1 ) 

350 OITT SIX 10>,S2X 10>,S3X 10) 

360 REIT ## wheel figures & values ## 
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370 Dill NFS* 13>,K<2,13;>,U<4),HU<3) 

380 FOR 0=1 TO 1-3 

390 REHO R1$,R1,R2:WF$< Ox=R1$ 

400 fi<0,U)=0:R< l,U>=Rl:R<2,U>=fi2 
418 NEXT 0 

420 DOTH W,0,0,K,0,0,U,0,0,J,0,0,*,8,40 
430 DhTR X,8,40,$,7,30,C,3,5,25,Cf3,3,20 
440 DOTH C„3,3,20,CP3,2,10,CS3,2»10,e,0, 

0 

450 REf'l ## gamble pos. & values ** 

460 DIP! 6P<4,1>,60<4> 

470 FOR 1=1 TO 4:R£R£J R1,R2 
480 6P< I,0>=R1:6P<; 1,1 >=R2 
490 NEXT I 

500 DhTO 33,3,35,5,33,7,30,5 
510 REf'l ## holds, nohold ## 

520 Dill HFtt3>,NH*< 1 >:HF*=‘ ":NH4=“e 6 

M 

530 REf'l if# jokers ## 

540 Din JP< 4 ), JF$< 4 >, JC< 4) 

550 FOR JO=l TO 4: JC< JO )=8 

580 REDO Rl,Rl$: JP<JO>=Rl: JF*(JO>=Rl$ 

570 NEXT jO:NO=4 

580 DOTH 15,a,i6,K,2'0,q,2'l,j 



590 REf'l ## jackpot, ## 

600 DIN JfKl3) 

810 FOR 0=1 TO 13: JfK 0 >=0: NEXT 0 
620 JN<5>=1: JN<6>=1: JN<7>=1 
630 REN ## points ## 

640 POSITION 1,1:? “CREDIT:0“j 
850 POSITION 1,11:? “—6—= 1"; 
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660 FOR U=12 TO 5 STEP -1 

670 ? :? “ iMF« U,U >;HF$< 0,0 >i = “ Jh' 

*1 1 i U } i 

680 POSITION 23,24-0:? MF«0,0>iMF«0,0) 
;HF$<U,U;';“ = “iR<2,UX 
690 IF .JHc y :> THEN ? “+J“; 

700 NEXT 0 
710 RETURN 

799 REIT ##* wait ### 

600 FOR NN=1 TO M:NEXT HN:RETURN 
899 REIT ### 9 ®t input, print sj$ ### 

908 FOR H=0 TO 4@ STEP 2 
910 SOUND 0,H,10,UOL 

920 IF PEEK?764X>255 THEN GET #2,IN:INS 
=CHRS<IN>:POSI IT ON X,V:? S3S;:SOUND 0,0, 
0,0:N=99:NEXT N:POP :RETURN 
930 NEXT H:RETURN 

999 REIT #** blink si$/s2$ and get 

input and end with s;< ### 

1000 POSITION X,V:? S1S;:60SUB 900 
1010 POSITION X,¥:? S2S;:60SU6 900 
1020 GOTO 1000 

1099 REIT ### add increment to money ### 

1100 FOR HD=S6N<IN > TO IN STEP SGNCINi 
1110 SOUND 0,3210-30£S6N< IN >-2£RD,10,13 
1120 POSITION 8,1:? ITO+HD; 

1130 IF lTG+RD< 100 THEN ? “ “i 

1140 FOR N=1 TO 8:SOUND 1,60-5X0,10,10 

1150 NEXT N:SOUND 1,0,0,0 

1160 NEXT HD: ITO=ITO+IN:SOUND 0,0,0,0 

1170 RETURN 

1199 REIT *## remove -double ### 

1200 DCi=0:POSITION 26,0:? " 

1210 FOR J0=1 TO 4:P0SITI0N JP<J0),6 
1220 ? JFS< JO,JO);: JC< JO>=0 
1238 NEXT JO:NJ=4:RETURN 

1299 REIT ### print b$ at bottom ### 

1300 POSITION 0,21:? “<ESCXSHIFT><BRCK 

1310 POSITION INT< 10-LEN<B$X2>,21 

1320 ? B$XRETURN 

1399 REIT ### jackpot *## 
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1400 JN=l:JC=15:POSITION 9,11:? “0“i 
1410 FOR 11=1 TU 10:POSIT1ON 20,1 
1420 ? “ejflCse “i 

1430 POSITION 24,1 
1440 FOR C=1 TO .JC: ? “J“s 
1450 SOUND 0,150-10*TI-2*C,10,15 
1460 NEXT CsNEXT TI:SOUND 0,0,0,0 
1470 RETURN 

1499 RECI ### adapt variables *#* 

1500 LN=< NOT H6>*NI:WI=0 

1510 FOR HO=l TO 3:HF*<HG,H0>=NH$ 
1520 POSITION 12+3*H0,12:? NH$; 

1530 NEXT HO 

1540 IF DO THEN 1620 

1550 FOR UO=l TO 4 

1560 IF JC< JO>=0 THEN 1610 

1570 JC< JO >=JC< JO >-l 

1560 IF JC<JO»0 THEN 1610 

1590 NJ=NJ+1 



1600 POSITION JP<JG>,6:? JF3X JU,JO >; 

1610 NEXT JO:GOTO 1630 

1620 06=DC-1:IF DC=0 THEN G0SU6 1200 

1630 IF NOT JH THEN RETURN 

1640 JC=JC-l:SOUND 0,250,10,15 

1650 N=10:6OSUB 800 

I860 POSITION JC+24,1:? “ “; 

1670 IF JC=0 THEN J0=0:POSITION 20,1:? 

“i:POSITION 9,11:? “ “;:REI'I 4+1 s-p 
i860 SOUND 0,0,0,0:RETURN 

1699 REI1 ### not enough money ### 

1700 HB=1:GOSUB 1200 

1710 JH=0:POSITION 20,1:? “ 

";:REN 19 spaces. 
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1720 B4=“INSERT UR END":GOSUB 130U 
1730 S14=“INSERT < 1 7“:S24=“GINSERT ( J TG" 
1740 S34=“ “:X=10:V=l:UOL=15 

1750 GOSUB 1000: IT IN4=‘‘P“ THEN 1750 
1760 RETURN 

1799 REi'l ##* noid possible ##* 

1800 64="INSERT HOLD PLHV END" 

1810 GOSUB 1300:X=15:V=12:UOL=4 

1820 S14="G G< ESC >E*JI< ESC >C*JG G<ESC>CXD 
<ESC>C«e 6“:S24=“H<ESC:>C*a<ESC>L43H<ESC 
TOOK ESC >L£JH" 

1830 FOR HO=l TO 3:1=34 h0-2 

1840 S14C 1,1 >=HF4< HU»HO 7:NEXT HO 

1850 S34=S14:GOSUB 1000:HO=lN-48 

i860 IF HO<1 OR HO>3 THEN RETURN 

1870 NH=NH+1:IF HF«H0,H0>=NH4 THEN HFSX 

HO , HO}="GHG"s GOTO 1830 

1880 HF4< HO^HO>=NH4:GOTO 1830 

1899 REfT ### no hold ### 

1900 B4=“INSERTS PLHV OR ENO“ 

1910 GOSUB 1300 

1920 S14=“???“:S24=“G?T?G“:S34=“G G“ 

1930 X=17:V=19:UuL=2:GOSUB 1000 
1940 RETLIRN 

1999 REi’l # wnat, to do with uiinmngs ### 

2000 IF NOT H6 THEN 64=“HOLD “ 

2010 B4<LEN<B4>+1 >=“G0flBLE COLLECT“ 

2020 GOSUB 1300 

2030 S14=“???“:S24=“G???G“:S34=“G 6" 

2040 X=17:V=19:U0L=2:GOSUB 1000 
2050 RETURN 

2099 REIT »#4 spm 'gamble wheels «#* 

2100 NT=NT+i:HO=0 

2110 FOR HD=1 TO 3: IF HF4< HD*HO >=NH4 THE 

N POSITION 10+4SHD-9:? *’ “ i:NEXT HD 

2120 FUR HD=1 TU 3 

2130 SOUND 0»183+24XHDj12#10 

2140 IF HF4< HDj.HD X >NH4 THEN HD=i:GOTO 2 

250 

2150 Fl=iNI( RNtX07*100+1 > 

2160 IF FI<5 THEN UHD7=FI:GOTO 2160 
2170 U< HD :>=5+f, F1 >7 >+< F1 > 10 )+< FI > 13 >+< FI > 
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23 w FI >36 >+< FI >43 >+< FI >68 l+f FI >8? > 

2188 FUR H=1 TO S#HD 

2130 IF H=ND THEN SOUND 1,0,0,0 

2200 FOR NS=HD TO 3 

2210 IF HF«HS,WS>=NH* THEN I=INT< 13*RNG 
<0>+l ):POSITION 10+4i‘WS,3:? HFSfI,I>; 
2220 NEXT MS!NEXT N:SOUND 1,100,10,15 
2230 POSITION 10+4XWO,3 
2240 ? HF$f 0< NO l,Uf HD 1 >i 
2250 NEXT WD:N=30:60SUB 800 
2260 SOUND 0,0,0,0:SOUND 1,0,0,0 
2270 RETURN 

2233 RETT take care of j okere ##* 

2300 J6=0 

2310 FOR HD=l TO 3:U=UfH0> 

2320 IF U>4 THEN EU=0:GOTO 2368 

2338 JW=W0:u6=J6+i: IF JCfU»0 THEN 2360 

2340 POSITION JPf 01,6:? " “i 

2358 JCf 01=28: NU=NU-1 

2360 NEXT HD 

2370 IF NOT DO THEN GO=f NU=8i: IF DO THE 
N 00=15:POSITION 26,0:? “double LhJ"; 
2360 RETURN 

2333 RETT ### compute winnings ### 

2400 Hu=l3:ON J6 GOTO 2430,2410,2470 
2410 If NOT TUN FIND FU>10) THEN HU=FO 
2428 GOTO 2470 
2438 Of O i=o< 3 i: of 4 >=0f i > 

2440 IF UH HND Of UH-1 1< l Uf UH+1 1 THEN 24? 
0 

2450 Of 01=15: Of 41=15 
2460 HU=Of JN+1 -2*f Of JH+1 1 >Of JH-1111 
2470 FUR HD=1 TO 3: HOf HU l=Uf FiO 1 
2480 IF Of NDX5 THEN HOtWDl=H0 
2438 NEXT HD 

2500 IF HOf 1 !=HOf 21 HND HOf2l=HOf3> HND 

uflf HOf211 Then gosub 1400 

2510 FOR MD=1 TO 3: Hi=Hl+f HOf HU 1=131 

2520 NEXT HD:IF JH I HEN Hi= 10 SHl 

2530 NS=f HOf 1 l=HOf 2 11+f HOf 2 l=HOf 31.1: H1=H 

1+Rf NS,HOf 211 

2540 IF DU THEN HI=H1+Hl 
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2550 RETURN 

2593 REN ### gamble ##* 

2600 NG=N6+ i: Ft= 1: GUI 1 >=2*W I: GU< 2 >=W 
2810 GU< 3 )=INT< 3*WI/2 ): GU< 4 >=INT< MI/2 ) 
2620 &$= " STOP' “ s 60SU6 1300 
2630 POSITION 10,1:? “ GGNC1BLEG“# 

2640 FOR LI=2 TO 8:POSITION 29,LI:? “f 
G“;:NEXT LI:REN 10 inv-spaces. 
2650 R=R+1:IF R>4 THEN R=1 
2660 POSITION GP<R,0>,GP<R,1>:? GU<R>XS 
OUND 0,80+10XR,10,15 

2670 IF PEEKC764X >255 NNO IN$0“S u THEN 
GET #2,IN:IN*=CHR$(IN> 

2680 IF IN$< >“S“ THEN 2700 
2690 MX 1+RND<0>)*W:6GSU6 800 
2700 IF H<200 THEN POSITION GP<R,0),6P<R 
, 1 >: ? “8 £" i : GOTO 2650 

2710 FOR LI=2 TO SrPOSITION 29,LI:? “ 
“xNEXT LI:REN 10 spaces. 

2720 POSITION 14,is? " 

2730 SOUND 0,0,0,0 

2740 GW=GW+GU<; R )-MI: M1=GU< R ): RETURN 

2799 REf'l ### end of game #*# 

2800 GRAPHICS 0:POKE 82,2 

2810 ? “<ESC>C=3<ESCXTf»>flnOUNT OF NONE 
V : 11 

2820 ? “<ESC>C=3<ESC><TfiB>Put in 
: “iNI 

2830 ? “< ESC>£=3<ESCX TMB>6ot back 
: “if10/4 

2840 ? “< ESC >C=3< ESCX THB>Nax at one tim 
e : “ il'HV4 

2850 ? “<ESC>C=3<ESCXTOB><i»on by gamblin 
9 : "iGN/4 

2860 ? “<ESC>C=3<ESCXTMB>Number of bold 
s : ‘8NH 

2870 ? “<ESC>L=3<ESCXThB>N u®ber of gamb 
les : “iNG 

2880 ? “< ESC>E=3< ESCX TRB>Number of turn 
s : “;NT 

2890 END 

2893 REN ##### mam program ##### 

2900 GOSUB 100:REC1 initialize # 
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2310 GOSUB 1500: REfl adapt # 

2320 IF fiUX'if'i THEN f'fWIO 

2330 ON 2£HB+< T10>1 >+l GOSUB 1700,1880,1? 

00,1300 

2340 POSITION 12,1:? “ “i 

2950 CH=<IN$=“I" >+2t< 1NT— “P")+3»IN*=“E" 

2360 ON Cft GOTO 2370,3000,2800:GOTO 2320 

2370 NI =N I+1:1 N=4: GOSUB 1100 

2380 If HO>m THEN flf'NIU 

2930 GOTO 2320 

3008 IN=-2:60SUB 1100 

3010 GOSUB 2100:REfl spin whee 1 s # 

3020 GOSUB 2300:REH jokers # 

3030 GOSUB 2400:REfl winnings * 

3040 HB=HO OR TtG< 2 
3050 IF WI>LW THEN 3110 
3060 If NOT HD THEN 2910 
3070 POSITION 12,1:? “VOU LOST"; 

3080 SOUND 0,250,10,15 

3090 N=30:GOSUB 800:SOUND 0,0,0,0 

3100 GOTO 2310 

3110 POSITION 12,l:? "NON: "j 

3120 POSITION 16,1:? NI; 

3130 FOR DU=HI+1 TO 2 STEP -1 
3140 SOUND 0,DU,10,15 
3150 H=10:GOSUB 800 
3160 NEXT DU 

3170 GOSUB 2000:REfl -set instruction # 
3180 CH =| : 1NT=“H“ UNO NOT HB >+2*< IN$="G" 
,J+32< INS=“C“ > 

3190 ON ClT GOTO 2310,3218,3200: GOTO 3178 
3200 HB=1:IN=HI:GOSUB 1100:GOTO 2910 
3210 GOSUB 2680:REfl gamble # 

3220 HD=-1:LH=8:GOTO 3848 
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Parrot 


PARROT is a very simple competition game. Play it on a rainy day with a friend 
(especially after your friend has had a few beers!). 

At the start of the game, your computer impertinently asks you: 
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ARE YOU READY PARROT? 


Yes, he is calling you a parrot! Press any key and the computer immediately 
displays a letter. You must enter the same letter as fast as you can. Since you 
copy each letter, you really are a parrot! The game is repeated for about 10 
seconds, and then the computer shows your score. 

How good are you as a parrot? Have a competition with your friends and 
try to win the title of ‘Super-Duper Parrot’. (My record is 19 — I teach 
parrots!) 


10 REf'l ############ parrot ########»### 

20 01 it ><■$< 1 > 

30 OPEN #2,4,0,“K:“ 

40 DL=PEEK< 560 5+PEEK.c 5b 1 >*256 
50 POKE OL+l3,7:POKE OL+16,?:POKE 92,0 
60 Y *■< ESC >[< 3< ESC >C=3< ESC C=3< ESC >C=3< E 
SC >< T fiB >< ESC XT Ht: > CH32CT3 ££.J3 U :? “<ESC 
X THE: >< ESC X THE >£P JGCuJ 6 “ 

70 ? “ < ESC X T flB X ESC >< TAB > P LHJC" 

60 ? :? ;"\ESC >L=JCare you ready parrott? 
" ■'?' ‘ \ ESC >TL=JK EsC 1 RBXESCX J RBxEsCx 1 
HB>?“; 

90 GET #2,x:? “KESC.XSHIPTXBUCK SXESC.> 
t-3<ESC>C-3<ESC X SHIFTXBHCK S > gthe 

parrott"; 

100 POKE 19,0:POKE 20,0 
110 X=INT<65+26&RNCK 0 >> 

120 POS1rION 22,10:? CHR*X+32>*; 

130 FOR W=1 TO 20:NEXT W:SOUND 0,0,0,0 
140 IF P£EK<20)+256*PEEK<19»6@0 THEN 20 
0 

150 IF PEEKt 764 >=255 THEN 140 

160 GET #2,6:? CHRSXGX 

170 IF GOX THEN SOUND 0,240,10,15:GOTO 

130 

190 C=C+i:SOUND 0,20,10,15 
190 ? “<ESCXSHIFT ><BACK S>“;:P0S1TION 2 

11 r 10:GOTO 110 
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200 ? : ? “< ESC >£=3< ESC X ThB>Sc ore : d 

“ iri 10 sec." 

210 FOR H=100 TO 0 STEF' -1 
220 SOUND 0,M,10,15:NEXT H:SOUND 0,0,0,0 
230 ? “< ESC >C=J< ESC X TN6 >Oo you want to 
Play ayam 

240 INPUT X*:IF X$<>“N“ THEN RUN 
250 GRAPHICS 0!POKE 82,0:END 
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Kentucky Derby 

Ladies and gentlemen, they are off! Red Arrow is off to a good start . . . 
Blondish Boy is giving his jockey some trouble . . . and there’s the famous 
Spanish Lady, on the inside track. This is really first class excitement, and 
we’ve only just begun! Coming round the first bend . . . Mickey Finn has taken 
over the lead, hard-pressed by Speedy Gonzales . . . 

The Kentucky Derby is a horse-racing game. There are not as many horses 
in our Kentucky Derby as there are in the real race — in fact, there are only 
three — but they have to run 10 gruelling laps (with computer horse-racing 
anything is possible)! At the start of the game the odds are given for each 
horse. Now you can place your bets. As long as you have money you can bet 
again and again — these horses never get tired. 

After the RUN command we see: 

YOU HAVE. 

HOW MUCH DO YOU BET ON HORSE 1 
HORSE: 1 2 3 

ODDS : 2 2 3 
BET : 

(odds may vary from race to race). 

When you have run out of money, your computer cheekily tells you: 

YOU'RE LIVING ABOVE YOUR MEANS 

Immediately after you enter all your bets the screen displays the racetrack, with 
horses at the starting gates. The odds and bets are displayed in the lower part 
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of the screen. 


/ put my money on the bobtailed nag 
Somebody bet on the bay 


10 REl'l ###****# Kentucky Derby ######## 

2d OIri Fk3j#U(3j*X<3)#1<3j 
36) Oifi 0<3;»*ft3;>*U3J*S(3J 
40 UPEN tt2 j 4 j D j *' K “ 

5w GOTO 1200 

9a REl'l ### initialize ### 

1 DO OH IN=1:00= 1: UUP6=2: XITWX= 1 a. 5 
110 RGUN0S=1 0 :OREO11=100:XH=10 
120 XHl=XH-2.5:XH2=XH-0.8:XH3=XH+0.8 
120 RETURN 

199 REl'l ##* initialize nor see *## 

200 WINNER-0 
210 FOR K=1 TO 2 

220 X< K >=0: RC K ,'= 0 : £K K )=0 
230 PC K )=< I NTT 5SRNCK 0 >+ i V5 ) 

240 OTKT=PCKTXOO+OTlIN sKK j=2xK 
250 NEXT K 
260 Pit T URN 

299 REN ### make bets ##* 

300 PT 01=0 

310 FOR i=l TO 3: Pc I >=C 01 i li-UillN VDo:PTO 
T=PTOT+PC 1 >: NEXT 1 

320 FOR K=1 TO 3: P< K )=INT< PTO TxPt K > NEX 
1 K 

330 GRwPHICS 2+16:SEi'C0L0R 1,4,8 
340 SETCuLOR 2*13,6:SETCOLOR 3,12,10 
350 POSITION 0,9 

360 ? #6*“I2H0RSE:C Q R SJG'' 

370 ? #6j “RUDDS :R":r *6 j"6bET :<£ u j 

380 POSITION 0,0 

390 ? #6;“E0JJ Kentucky derby 

400 ? #6*“e VOU OWN BETE'“; 

410 FOR 1=1 TO 3:POSITION 6+4X1,10:? #6; 
PC I >i : NEXT 1 
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420 POSITION 0-6 

430 ? #6;"HUH HUGH DO VOU BET" 

440 ? #6;"UN HORSE ?“i 
450 FOR 0=1 TU 3:POSITION 0-3 
460 ? #6;“ VOU HAUL "jCREDIT 
470 ? #6;" 

i : REI‘1 38 spaces. 

4S0 L=0:KJ>=0:POSITION 9-7:? #6iJ- 

490 POSITION 13-7:? #6-“ “i 

500 POSITION i3-7 

510 GET *2.X:IF X=155 THEN 550 

520 X=X-48:IE X<0 OR X>10 THEN 510 

530 ? #S;CHR$< X+16 >- 

540 L=L+1:K0>=K J)#i0+X:GOTO 510 

550 IF CREDIKKJj THEN POSITION 2-4:? * 

6; “fiVOU ‘ RE LIMING ABODE VOUR DEANS! <2 

“:GOTO 430 

560 CREDIT=CREDIT-K J) 

570 POSITION 7+4*J-L-11:? *6iKJOi 
530 NEXT J:RtlURN 

533 REIT *## change character-set ### 

600 REST ORE :TOP=PEEK<i06 >-8 

610 POKE 204-TOP:POKE 206-224 

620 FOR X=1536 TO 1555 

630 READ U:POKE X-0 

640 NEXT X 

650 Q=USR<1536; 

660 DOTH 104-162-4-160-0.177-205-145 
670 DATA 203-200-208-243-230-206-230 
680 DATA 204-202-208-242-96 
630 Rfli'iSEl =T0PX256 
700 FOR 1=59 TO 63 

710 FOR X=RHITSET+1X8 TO RAP1SET+1X8+7 

720 REHD U:POKE X,0:NEXT X:NEXT 1 

730 DA IA 4. 7.7.132.124.124.68.130 

740 DATA 4-7-12-60-255-208-64-96 

750 DATA 4-7-6-60-60-38-68-129 

760 DATA 60-60-62-126-126-127-255-255 

770 DATA 0-0-0-0-0-0-0-255 

780 POKE 756-TOP:RETURN 

799 RED ### initialize screen *#* 
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80@ POSITION 0,7s? ffbi" 

VOU HftUE “iCREDITi"*.*# 

8i0 POSITION 0,1 
820 FOR K=1 TO 3 

830 ? »SiKi“: “i 

840 ? #6; "GIINNNNNNNNNNJK ESC >t< BACK S >NNH 

NNNNnN3G“; 

850 POSITION 2,T(K)-l:? #6;K<;(0 
860 POSITION X<K>,T<IO:? #6;“0tiTI8" 

870 NEXT K:RETURN 

893 RECI *## horse race «## 

900 FOR Q=1 TO 3:SOUND 0,0,0,0 
910 IF O^O} THEN 1110 
920 POSITION X', U,',T( 0 ) 

930 IF S<O>=0 THEN '? #6;"8CNJe“ 

340 IF S<0> THEN ? #6;“ “ 

950 IF S < ;0>=1 THEN S<O>=0sGOTO 1080 
380 X( 0 )=X( 0 )+U< 0 > 

970 0<Q :>=V< 0>+UUPG*RND<i0 m. UPKK0;; 

980 IF S<0;'=2 l HEN T<Q>=T<O>+1:S<O>=0:GO 
TO 1080 

990 IP (XH1<X<Q;'> HND <X<0XXH3) THEN 10 
80 

1000 IF XCQXXi'iHX (HEN 1080 
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1010 Xt U )=X< Q >-xnflX: R< Q >=K< Q >+1 
1020 POSITION 2J(G)-1:? #S;RtQ); 

1030 IF Rt 0XROONOS THEN GOTO 1080 
1040 0<Q>=i!IF HINNER=0 THEN HlNNER=G 
1050 GOTO 1080 

1060 IF X< 0 XXH2 THEN Sc Q 1=1: GOTO 1080 

1070 StU1=2: KG i=K01-1 

1080 SOUND 0*240#10*15 

1090 POSITION X(0}*T<Qi 

1100 ? #6;CHR$t251+S<U11 i 

1110 NEXT 6! 

1120 SOUND 0*0*0*0:RElURN 

1199 REM #*#*# mam program ##### 


1200 GOSUB 100:REf'l initialize # 

1210 GOSUB 200:REl v l initialize horses # 

1220 GOSOB 300:RB'l make bets # 

1230 SOUND 0,20*10*15 

1240 GOSUB 600:fiEi'l character set # 

1250 GOSUB 800:REfi initialize screen # 

1260 UTi=< (X 1 l+Ut 21+UC 3 ) )/3 

1270 GOSUB 900:REP! horse race * 

1290 IF D( i )+D< 21+G< 3X3 THEN 1260 


1300 CREDIT=CREDIT+KHlNNERi&KWiNNER 1 
1310 POSITION 0*8 

1320 ? #6;"Rhorse WINNER;“6 wins 2“ 
1330 IF CREDIT THEN SOUND 0*100*10*15:FO 
R H=1 TO 500:NEXT W:SOUND 0*0*0*0:GOTO I 
E1U 

1340 ? #6: ? #6; "YUU LOST HLL YOUR NONE 
Y ! ! " * 

1350 GOTO 1350 
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Rainbow Square Dance 

A two-dimensional cube? Impossible of course, but this game, played on the 
computer screen, is similar in many ways to Rubik’s Cube. 

You will see 25 colored squares arranged at random on a 5 x 5 board. The 
rows of squares on the board are numbered like this: 



6 7 8 9 0 


That is, the horizontal rows are numbered 1 to 5 and the vertical rows 6, 7, 8, 
9, and 0. When you enter the number of a row, the squares in that row are 
moved one position. In a horizontal row the squares move to the right, and in a 
vertical row they move downwards. As a square disappears off one end of a 
row it reappears at the other end, like this 



\ _ / 


in a horizontal row, or this 
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in a vertical row. 

The object of all this? You must rearrange the squares to form five hori¬ 
zontal stripes of one color each. Sounds simple . . . but is it? 


10 REi'l *#### Rainbow Square Dance ##### 
20 Dill fit 5,5; 

30 OPEN *2,4,0,"K" 

40 GOTO 600 

99 REN *#* initialize *** 

100 FOR 1=0 TO 4:REND ft 

110 FOR U=0 TO 4:fit 1,J>=ft:NEXT J 
120 NEXT 1 

130 OfiTfl 3,35,163,0,131 

199 REfl ##* initialize screen #*# 

200 GRftPHICS 1? 

210 ? * 6 i“ 6 rainboiju square aancefi": ? if 6 
220 ? # 6 i“ 6 ? 8 9 0“:? *6 

230 FUR 1=1 TO 5 
240 POSITION 0,341+2:? # 61 1 
250 POSITION 18,341+2:? * 6 ;I; 

260 NEXT 1 

270 POSITION 0,20:? * 6 ;“ 67890 

280 FOR 1=0 TO 4 :FOR k=0 TO 2 

290 POSITION 2,4+34I+K 

300 FOR 0=0 TO 4:FOR L=0 TO 2 
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310 ? #b; CHR$< H( I, J > ) } 

320 NEXT L:NEXT J:NEXT K:NEXT I 
330 RETURN 

399 REIT #** sh i ft row ffff# 

400 FOR 1=5 TO 1 STEP -1 
410 HCH,Il=FKH,l-i ;> 

420 NEXT i 

430 FKPl.,0J=tt<FI*5> 

440 FOR K=0 TO 2 

450 POSITION 2,4+H»+K 

460 FOR J=0 TO 4:FOR L=0 TO 2 

470 ? #6iCHR«fKfi#J)7i 

480 NEXT LJNEXT JsNEXT K:RETURN 

499 REi'i ##* shift column *#* 

500 FOR 1=5 TO 1 STEP -1 
510 FK I,H>=0< I-1j.H> 

520 NEXT I 

530 FK0^H>=Tk5^H>_ 

540 FOR 1=0 TO 4:FOR K=0 TO 2 
550 POSITION 2+3*fi»4+I*3+K 
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see FOR L=0 TO 2: ? 1,0 7 Jj: NEXT 

L 

5,-0 NEXT KSNEXT I:RETURN 
bee REI1 ##### main program ### 

610 LEU=30 

620 SOSUB 100:RED initialize ff 
630 FOR H=1 TO LEU 
640 H= I NT< RNO< 0 >:T5 > 

6:50 ON INT<1+2*RNDK0>> 6GS0B 400,500 

660 NEXT H 

67*0 POSITION 0,23 

680 ? #6;“enter row : "j 

690 POSITION 11,23 

700 SET #2,0:? #6;CHR$<;H>i: 0=0-48 

710 IF 0BS(0-4.5)>=5 THEN 670 

720 IF 0=0 THEN 0=10 

730 IF 0>5 THEN 0=0-6:SOSUB 500:SOTO 670 
740 0=0-1:SOSUB 400 
750 GOTO 670 
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Qui Vive 


To be ‘on the qui vive’ means to be alert and watchful. This game is called QUI 
VIVE because to play it successfully you must always be on the look out for 
winning situations. The rules are very simple but the program needed to imple¬ 
ment them is anything but. In fact, it presents quite a challenge to a games 
programmer. 

QUI VIVE was invented by Eugene de Wolf and is played on a square 5 x 
5 board. Each player has five checkers and must try to arrange them into one 
of seven symmetrical patterns. These are: 


a horizontal line, e.g. 


a vertical line, e.g. 
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a diagonal, e.g. 



a rectangular cross, e.g. 




a skew cross, e.g. 
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a vertical wing, e.g. 



a horizontal wing, e.g. 


0 

• • 

/ \ 


At the start of the game the board is empty and you and the computer take 
turns to place checkers on it. The positions on the board are labelled like this: 
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1 

2 

3 

4 

5 

© 

6 

7 

8 

9 

10 

© 

11 

12 

13 

14 

15 

© 

16 

17 

18 

19 

20 

© 

21 

22 

23 

24 

25 


® 

® 

© 

® 

© 


To place a checker at any particular position simply enter the appropriate 
coordinates: for instance for position 21 enter Al, for position 12, B3, etc. 
Your checkers are indicated by P and the computer’s by C. 

If all ten checkers have been placed on the board and no one has won, the 
game continues, with you and the computer taking turns to move checkers to 
try and gain a winning position. To move one of your checkers you enter the 
coordinates first of its present position and then of the position to which you 
wish to move it. 

You must keep a look out for chances to make a winning pattern yourself, 
at the same time making sure that you are blocking any winning moves by the 
computer. 

The program is one of the most interesting in this book. It contains a list 
of not only all 42 possible winning patterns but also over 100 particularly 
strong situations from which a player has a chance of making either one of two 
winning patterns. During the game the computer monitors this list in the light 
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of the situation on the board and assesses what its best move is. 

We advise you to play this game on an ordinary checkerboard against one 
of your friends before you take on the computer. You will soon see what a 
superb game it is. 


###### 


10 REM ###### u u i -yi v 
20 DIM 3P<41 ,4i>*SF0t 41 27. 

20 DIM UK 107,1 J,DFF< 10?,6>,OFPt 107; 

40 DI f'i CCt 4,1 >, i.'4 >, CDFt38 >, PDFt 30 > 

S0 POKE 02,0:? “<ESC>C<CLEARSESC3E-36 

please wait. i.' u 
00 b'OTO 000 


9a REM ### compute points of CDF tComput 
er Double Figures} ### 

1 PI =t Bt DFFt OF , 0 i} OR B< DFFt DF , 1 > > >+< B 

t DFFt DF,2.J;' OR Be DFFt DF ,3 }; 

110P=t Bt OF Ft OF,4 > }+6t DFFt DF,5> i+Bt OFFt D 
h * b1 y 


120 IF Pit2 FIND P=3 THEN P=P1+2:RETURN 
130 P=Pl+p:RETURN 

109 REM ### compute points of PDF tpiaye 
r Double Fi mures ;■ ### 

200 N6P1 =0: N6P2-0: NBC 1 =0: NBC2=0 
210 Dl=Bt DFFt DF ,0 > >: D2=Bt DFFt OF, 1 > > 

220 IF 01=1 OR 02=1 THEN N6P1=1 
230 IF D1=10 OR D2=lti THEN NGCl=10 
240 0l=8< DFFt DF,2)>:D2=Bt DFFt DF,3 )> 

250 IF 01=1 OR D2=l THEN NGP2=1 
260 IF 01=10 OR 02=10 THEN N6C2=10 
270 BU=Bt DF F t DF , 4 > >+Bt DF Ft DF , 5 > >+Bt DF F t D 
F,6> J 

280 P=60+N6P1+N6P2+N6C1+NGC2 
290 IF 60=30 PND <N6C1=0 OR N6C2=0 > THEN 
P=F'-10 

300 IF 60=3 FIND (N6F'1=0 OR N6C2=0 ) THEN 
F-P-l 


310 RETURN 

399 REM ### determine strategic value of 
move ##* 

400 IF NCOF=0 lHEN 490 
410 ITC=0: NMC=0: BEST=0 
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42d FOR CDF=0 TO NCDF-1 

430 OFCDF( CDF >: 60SL© 100 

440 IF P>4 THEN F'F-CF’: PTCT: BEST=1: CDF=N 

CDF:NEXT CDF:RETURN 

450 IF F-I’1C THEN NfTC=NlTC+l 
480 IF P>T1C THEN T1C=P:NT1C=1 
470 NEXT CDF 

480 IF T!C<HP OR (TTCCIP HND N(TC<NT1P > THEN 
RETURN 

490 IF NPDF=0 THEN 550 

500 IF H=0 THEN PP-CP: F'T =01 

510 FOR PDF=0 TO NPOF-l 

520 BF=PDF(PDF X608UB 200 

530 IF P=4 THEN PDF=9:NEXT PDF:RETURN 

540 NEXT PDF 

350 IF TIF-ITC FIND NlTF-NT'IC HND RND(0X8.5 
HND H=1 THEN RETURN 
560 rlF-iTC:Nf1P=NI1C:PF-CP:PTCT: H= 1 
57‘0 RETURN 

599 RETT #4### ma i n program ##### 

608 6QSU6 2600:RETT mit-SP (Single Figur 
es ) 

610 60S06 2300:RETT in.t-DF (Double Fiour 
es ;■ 


628 60SL© 3508:RETT com-DFF (Double Fiour 
es F ield-E-.) 

630 i.:C=0:PC=0 

640 ? "Do you want, to begin •* j: INPUT XI 
658 IF Xlc1,1 >=“V THEN 6USUB 1300:GOTO 
968 

668 PP=l2:60T0 950 

678 FOR 1=8 TO 4: CC( 1,1 >=0: NEXT i 

680 60SUB 1880: RETT owner-SF'e # 

698 IF P=5 THEN ? "fvou wint<.ESC7E23“:60 
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TO iiow 

m IF NSFO-l THEN fciOSUB 1700:GOSUB 140 
0s? “01 wine<ES0>C23“s GOTO 1100 
?85 ? “G ('ly turn, please wait £■* 

710 GOSUB £000:REM owner— DF's # 

720 GOSUB 2300:REM interesting Of's * 

730 fi=0: BF=0: EF=24: TIF-0: NMF-0 
740 IF OMO-1 THEN BF=OM:EF=OM 
750 CF-BF-1 

760 CF-CP+1: IF CP>EF THEN 950 

770 IF B<CPX>0 THEN 940 

790 GOSUB 2400:REM find OOF # 

S0@ IF SK<9 HNO H=1 THEN 940 

810 EX CP >=10 

820 IF CC=5 THEN 860 

830 GOSUB 400:REM Strategic value # 

840 IF BEST THEN BEST=0:GOTO 950 

850 GOTO 930 

860 FOR CT'I=0 TO 4 

870 IF OCXCT1,1 > THEN 920 

880 CT=CC< CTT ,0 ): EX CT >=0 

890 GOSUB 400:REM Strategic value # 

900 IF BEST THEN BEST=0:CTI=9:NEXT CTI:G 

OTO 950 

910 B< CT >=10 

920 NEXT CTI 

930 B< CP >=0 

940 GOTO 760 

950 GOSUB 1400:REM computer move # 

960 GOSUB 1500:REM player move # 

970 GOTO 670 

1099 REM ### again ? ### 

1100 ■? “Do you want- to play again “i 
1110 INPUT X*:IF X$=“Y“ THEN FOR 1=0 TO 
24: EX I >=0: NEXT 1: GOTO 630 

1120 END 

1199 REM ### get input ### 

1208 INPUT X$: IF LEN'i X* X >2 THEN 1240 
1210 IF X$<1,1X“0“ OR X4X1,1»“E“ OR X* 
< 2,2 X" 1 “ OR X$<2,2»“5“ THEN 1240 
1220 X=fiSC< X$< 1,1))-5SUHL< X$< 2,2 ) >-40 
1230 RETURN 
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1240 ? “<ESC>C23Mron9 input try again “ 
1250 GOTO 1200 

1299 REf'l ### show board ### 

1300 FOR 1=0 TO 4:? 5-1 i 
1310 FOR 0=0 TO 4:K=I#5+J 
1320 IF B< K )=0 THEN '? “6 E'“; 

1330 IF B< 10=10 THEN '? "H'OJG"; 

1340 IF B< K >=1 THEN ? “03“ ; 

1350 NEXT OS'? : NEXT I 

1360 '? “<ESC> E-3<ESC>C-3<ESC>C-3<ESC>1X1 

< esc>c*j< escjogk esc >ra< esoixj< Esc>m 

< ESC >031 am : ROJO 

13 m ? “<ESC>E*3<ESC >£*3<ESC>E*3<ESC >03 

< ESC >C*3< ESC >C*3< ESC >»JVou are: O 3< ESC 
>C=3“s'? “ HBCDE“:? 

1380 RETURN 

1339 REI'l ##4 computer move ### 

3400 IF CC<5 THEN PT=CCsCC=CC+lsGOTO 146 
8 

1410 '? “1 take up s OCHR$<65+PT-INT<PT 
/5 )#5 >;5-INTt PT>5 > 

1420 6<PT>=0 
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1430 FOR CT1=0 TO 4 

1440 IF CC< CTI j.0>=PT THEN PT=CTI:CT!=3 
1450 NEXT CTI 

1460 ? "I put down : “;CHR$<65+PP-1NT<PP 
/5 >£5 ) ;5-I NT< PP/5 > 

1470 B< PP >=10: CC< PT*U >=PP 
1480 GOSUB 1300:RETURN 

1499 REI'l ### Player move ### 

1500 IF PCX5 THEN 1540 

1510 ? "Which checker do you take up "; 
1520 GOSUB 1200:PT=X 

1530 IF EkPT ><>1 THEN ? "<ESC>C23Not pos 
sible“:60T0 1510 

1540 ? "Where do you put your checker "; 
1550 GOSUB 1200:PP=X 

1560 IF B<PP X >0 THEN ? “<ESC>t23Not poe 

sible“:60T0 1540 

1570 IF PC=5 THEN B< PT >=0 

1580 IF PCX5 THEN PC=PC+1 

1590 B< PP >=1 

1600 GOSUB 1300: RETURN 

1699 KEl'l #### winning ##* 

1700 SF=WSF: GOSUB 2100: PF-Oil 
1710 FOR CTI=0 TO 4 :CT=CC<CTIj.0> 

1720 FOR 1=0 TO 4 

1730 IF SF<SF#I>=CT THEN 1=9:NEXT I:NEXT 
CTI:RETURN 
1740 NEXT I:PT=CT 
1750 CTI=9:NEXT CTI:RE TURN 

1799 RElT ### determine owner of SF's ### 

### arid obligatory move (Ofl>### 
### and checker pending (CO### 

1800 0I'I=-1: WSF=-1 
1810 FOR SF=0 TO 41 

1828 F'=B< SFC SFj.0 > >+B< SF< SF j. 1 > >+B< SF< SF>2 
> )+B< SFC SF,3 > >+B( SFC SF j4 > > 

1830 IF P=0 OR F-10 OR F-20 UR P=30 THEN 
SFCK SF >=10: NEXT SF: RE TURN 
1840 IF F-40 THEN WSF=SF:NEXT SF:RETURN 
1850 IF P>20 OR F'<3 OR P=ll OR P=l2 THEN 
SFO<SF>=0:NEXT SF:RETURN 
I860 SFOCSF j=l 
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18?0 IF F'=4 FIND Ofl=— 1 THEN 60SUB 2100 
1880 IF F'=14 THEN 80SUB 2200 
1890 IF P=5 THEN SF=99 
1900 NEXT SF:RETURN 

1999 REIT ### determine owner of DF'e ### 

2000 NCDF =0s NF‘DF=0 
2018 FOR DF=0 TO 10? 

2020 01 =SF0< DFt OF ,0 > >: 02=SFOF OFT OF, 1 '> > 

2030 IF 01002 OR 01=0 OR 02=0 THEN OFPF 

OF 1=0:NEXT DF: RETURN 

2040 GOSUB 200: OFF'< DF >=P 

2050 IF P=30 OR P=40 THEN CDFCNCDFI=DF:N 

CDF=NCDF+1: NEXT LiF: RETURN 

206O IF P=4 OR F-14 THEN PDF< NF'DF >=DF:nP 

DF=NPDF+1:NEXT DF:RETURN 

2020 NEXT DF:RETURN 

2099 REN ### determine obligatory *## 

### move f CUT > ### 

2100 FOR 1=0 TO 4 

2110 IF EX SFT SF * I > >=0 THEN OlT=8FFSF#I >: I 
=9 

2120 NEXT I:RETURN 

2199 REIT ### determine pended ### 

### checker (CC > ### 

2200 FOR 1=0 TO 4 

2210 IF E:< SFFSF^I 0=10 THEN F=I: I =9 

2228 NEXT 1 

2230 FOR J=0 TO CC-1 

2240 IF SF< SF *F T=CC< J,&> THEN ClX J , 1 1=1: 
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2250 NEXT J:RETURN 

2239 REIT determ i ne i nterest i ng DF 1 s ### 
2300 IF NC0F>5 THEN RETURN 
2310 1=20 

232 0 FOR DF=0 TO 10? 

2330 IF OFF’<DFX>1 THEN NEXT OF:GOTO 237 
0 

2340 IF SF0< OFC DF , 0 > >= 10 OND SFCKDF<DF,1 
> >=10 THEN CDFT NCDF >=DF: NCDF=NCDF+1 
2350 IF NC0F=6 THEN DF=103:NEXT OF:RETUR 
N 

2330 NEXT OF 

2370 IF 1=0 THEN RETURN 

2380 1=1-18 

2390 SOTO 2320 

2333 REIT ### find CDF ##* 

2400 IF OTK >-l THEN SK=S:RETURN 

2420 IF NCOF=0 THEN 2470 

2430 FOR CDF=@ TO NCDF-1:OF=COF< CDF > 

2440 FOR SR=0 TO 8 

2450 IF OFF<DF,SK>=CF' THEN SK=3:C0F=NCDF 

: NEXT SR': NEXT CDF': RETURN 

2460 NEXT SR:NEXT' CDF 

2470 IF NF'DF=8 THEN SR=0:RETURN 

2430 FOR PDF=0 TO NF'OF-1: DF=PDF< PDF > 

2508 FOR SR=U TO 8 

2510 IF DFFX DF,SR >=CF' THEN SK=3:P0F=NPDF 
2520 NEXT SR:NEXT PDF:RETURN 
2533 RETT ### initialize SF ### 

2600 FOR 1=8 TO 41:REND X$ 

2610 FOR 0=1 TO 5 

2620 SF (.1,0-1 >=HSCX X$(. 0,0 > >-65 

2638 NEXT 0:NEXT I:RETURN 

2699 REN ### unrigs #*# 

2780 DOTH UQf'iSV,PLHNT,R6C10 
2?IS ORTH HSITIE,FLRNO,KQWSO 
2728 DOTfl 06ITQU,BHNRO,CIOSW 
2730 DOTH E1TTSV,DHLRX,C6R8W 
2733 RETT ### times <X> ### 

2808 DO TO 0CGRT1 , BDHLN , CEI NO 
2810 DOTH FHLF'R,GI (%IS,HONRT 
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2820 DATA Kf'iQUW , LNRUX* HOS'MV 

2899 REF'l ##tf Plus < + > ### 

2900 DATA BFGHLCGHI PI,DH ION 
2910 DATA GKLPIQ > HLPINFb I f'INOS 
2920 DAT A LF'QRU , P1QRSN, NFS IX 
2399 REN ### diagonals <w> ### 

3000 DATA AGf1SV#EiriQU 

3099 REP1 ### columns < | > ### 

3100 DATA AFKF'U <■ 66LQU*CHARM 
3110 DATA DINSX^EJOTV 

3139 RET'I ##* rows <-> ### 

3200 DATA ABCDE^FGHI OAKLAND 

3210 DATA PwRSTOJUNXV 

3233 REN ### initialize DF ### 

3300 FOR 1=0 TO 107 STEP 12:READ XT 
3310 FOR J=0 TO ll:FOR K=0 TO 1 
3320 L=2:S0+K+l 

3330 0F< 1+Jj.K .)=ASC< XT< Lj.L > >-49 
3340 NEXT K.: NEXT J:NEXT I: RETURN 
3393 REN ### double figures *## 

3400 DATA 171: 1A1C1E1PU01P2>2£2B2U 
3410 DATA 393<3=3736474:4=4?4A4640 
3420 DATA 4P5e5B5D5J696<6C6E6A?=?A 
3430 DATA 7C7I707P8>8B8D8J9?9E9K:? 

3440 DATA : As E: Ks Qs Pi >ifi# D# J<=<C< I 
3450 DATA =G=I=0>F>H>J?G?K?PGFGJeL 
3460 DATA A6AIAKACiAOAPBHESBNC I CHOP 
3470 DATA DJOLDNEKEAEOFRFHGSGWHTHW 
3480 DATA IRIXJSJXKTKXLRLVASAVNTNV 
3483 REN ### compute OFF ### 

3500 FOR 1=0 TO 24: B< I >=0: NEXT I 
3510 FOR OF=0 TO 10?:CF=4:NCF=0 
3520 FOR I =0 TO 4: B( SF< DFT DF # @ >, 1 > >=1: NE 
XT I 

3530 FOR 1=0 Tu 4:SF=sF(DF< DF* 1).»I > 

3540 IF BCSF) THEN DFFCDF*CF>=8F:CF=CF+1 
: B< SF >=8: NEXT I: GOTO 3568 
355@ DFF< DF,NCF >=SF:NCF=NCF+1:NEXT 1 
3560 FOR I =0 TO 4: SF =SFC DF< DF >0 >* I > 

3570 IF B<SF) THEN DFFiDF,NCF >=SF:NCF=NC 
F+1:B<SF>=0 

3588 NEXI I: HEX T DF: FlETURN 
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STM 


The nature of memory is certainly one of the most interesting topics in psychol¬ 
ogy. To remember something has been defined as ‘to show in present responses 
some signs of earlier learned responses.’ Why, though, do we remember some 
things and forget others? We may recognize someone we haven’t seen in years, 
or call to mind a tune having heard only a few notes of it, but find it very 
difficult to remember, for instance, a telephone number. There are in fact two 
distinct types of memory: short term memory (STM) and long term memory 
(LTM). If you want to find out more about this intriguing topic we recommend 
that you read ‘Introduction to Psychology’ by Hilgard & Atkinson. 

This game tests your short term memory. Play it with your friends and 
family and see who can remember most. You will see this ‘menu’ on the screen: 




DO YOU WANT TO PLAY WITH 

1. LETTERS? 

2. NUMBERS? 

3. 0 OR 1 ONLY? 

4. OR DO YOU WANT TO STOP? 


Now you make your choice by entering 1, 2, 3 or 4. Say you entered 1 to play 
with letters. A letter will now appear on the screen but only for a very short 
time. You have to enter that letter. The computer will then show you two 
letters which you have to enter, then three, and so on. Obviously, as the 
number of letters increases, remembering them all becomes more difficult. 
What is the longest string of characters you can remember? Can you beat our 
record of eight? 


10 REl'i #*###*####*# S T l T i tut*#####*### 

20 01 ft B*< 20 >#A*< 20 ? 

30 GRAPHICS 0 

40 ? "<ESC >L=Jk ESC ><Ihb>Gg you want to p 
iay with" 

50 ? ’* < ESC>l_=_l<ESCXTAB.> 1. Letters ?“ 

60 '?• " < ESC >L=3< EEC XTAB >2. Numbers ?<• 

?y •? "<ESC>L=JkESC><IAS>3. 0 OR t only ? 

80 Y “< ESC >E=Jt ESC ><IA 6 > 4 . Or do you wan 
t. to stop 

SO ? "<ESC>L=j<ESCX TABi" i '• INPUT A 
100 UN A GOTO 1 10,120,130,350:GOTO 90 
110 0=26:6=65:GOTO 140 
120 0=10:6=48: GOTO 140 
130 H=2:6=48 

140 GRAPHICS 2:POKE 19,0:POKE 20,0 

150 T 461" Y-YY-YY- S t ill Y-Y-Y-YY 
160 C=1 
1?0 Hi= “ " 

180 FOR 0=1 TO C 
190 B*=CHF»<INKB+KNOl0 ) > 
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200 POSITION 10,4:? #6;6$; 

210 LENH A$ )+1 )=B$ 

220 FOR H =1 TO loo:NEXT w 
230 POSITION 10,4:? #6,-“ “i 
240 NEXT 0 

200 ? “Answer INPOT B$ 

260 IF THEN C=C+1:60T0 1?0 

270 POSITION 0,4 
280 ? #6i"wrong “ 

290 ? #b'i“rr WHS : “;HJ 

300 ? #6 i "SCORE : “;C-1 

310 ? #6;“Tlf1E : “ i INK (. PEEKX I9llc256+P 

EE'K< 20 ) V0.6 )/ 100 ; " SEC." 

320 ? "Do you want to play again "j:I nPO 
T H* 

330 IF H*="V" THEN 140 
340 RON 

350 GRAPHICS 0:RNO 
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One to Five 


This exasperating game, which we saw first on a CASIO calculator, takes quite 
some logical reasoning to solve. It is played on a board with nine positions set 
out like this: 


1 2 3 
4 5 6 
7 8 9 


A horizontal and a vertical line drawn through any one position will cross five 
positions in all. For instance lines drawn through position 4 will also cross 
positions 1, 5, 6, and 7. 
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The positions on the board are occupied by a random pattern of digits between 
0 and 5. If you enter one of the positions (using the key shown on the screen) 
the digit on that position, and all the digits on the horizontal and vertical lines 
going through that position, are increased by 1 (except 5 which becomes 0). For 
instance if we had 


2 2 4 

1 5 2 

1 5 4 

and entered 4, the board would change to 

3 2 4 

2 0 3 

2 5 4 

The puzzle is solved when the board looks like this: 

0 0 0 

0 0 0 

0 0 0 
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10 REIT ######### One To Five ####*##*# 

2£i OUT 1 Lit 9/,&<. 2,2 >, I N$< 1 > 

30 OPEN #2,4,0, “K.:" 

40 GRhPHICS 18 
50 IL$=“6QWEfiSD2XC6" 

60 FOR R=0 TO 2:FDR 0=0 TO 2 
70 0<R,Ci=0:NEXT C:NEXT R 
80 GOTO 600 
9a REP1 #** screen #*# 

100 Y #6i“X one to five £“ 

110 Y #6;" /■ -+-+-V‘:G0SUB 200 

120 >' #6i“ +- h -f-f“: GGSU6 200 

130 Y #6i“ +-*--+-*- “: 60SU6 200 

140 ? #6i‘‘ \-+- +—“ 

150 FUR R=0 TO 2:FOR 0=0 Tu 2 
160 POSITION 3+5*0,2+3*fi 
170 Y *b;1L$< 3XR+U+1,3*R+C+1 )i 
180 NEXT CsNEXT R 
190 GOSUB 500:RETURN 

200 ? #6i“ ! ! ! !“ 

210 Y #6;“ i ! ! !“ 

220 RETURN 

299 REil ##* 'Set instruction ### 

300 GET #2*IN:IN$=CHR$<IN+128 ) 

310 FOR IN=1 TU 9 

320 IF 1N$=IL$< IN, IN ;■ I HEN RETURN 
330 NEXT IN:GOTO 300 

399 Rtf'! #*# execute move ### 

400 R=INT< < IN-11/3 >: C=IN-3*R—1 
410 Bl R,C 1=61 R,0,i-l 

420 FOR 1=0 TO 2 

430 B< R. I >=B< K»I >+l 

440 IF BlR,i >=6 THEN BCR, 11=0 

450 6c I,Oi=B< IjC>+1 

460 IF Bci I#0>=6 THEN Be 1,0=0 

470 NEXl 1:RETURN 

499 REIT ##* output board #*# 

500 N2=0 

510 FOR R=0 TU 2:FOR 0=0 TO 2 
520 POSITION 5+5X0,3+8XR 
530 Y *6iCHR#< B( R,0 i-48+64 >i 
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540 NZ=NZ-K B>; R, C )=y ) 

550 NEXT C:NEXT R:RETURN 

599 REf'i «##«# main program ##### 

600 FOR TI=1 TO 9 

6 10 1 N= I NT < 9XRNDc. 0 >+1 > 

620 GOSUB 400: REf'i execute move # 

630 NEXT_TI 

640 GOSUB 100:REl1 -screen # 

650 GOSUB 300:REf'i get instruction * 

660 GOSUB 400: REf'i execute move * 

670 Nf'l=Nf'i+l 

680 GOSUB 500: REfi output boara # 

690 IF N2<9 THEN 650 

700 POSITION 0*11:7 #6;“Gdone in S“jNf1i“ 
fi movesfi “ i 

710 GOTO 710 
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Escher 


The work of the Dutch graphic artist M.C. Escher (1902- 1972), based as it is 
on symmetry and mathematical forms, appeals particularly to computer 
programmers. 

Now with the help of the computer you can produce your own patterns 
based on the same principles used by Escher. 

Consider the following pattern: 



It is based on a mosaic in the Alhambra palace in Spain. If you look closely 
you can see that all the tiles are the same shape and that they are arranged so 
that the ‘inverse video’ of the white tiles shows the same pattern rotated 
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through 90 degrees. Escher studied such patterns and invented a game based on 
them. He devised a patterned tile such as 



and arranged to form a continuous pattern. 



which he rotated through four positions 
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This program does something very similar. After you have filled a ‘basic’ 
square with a pattern the computer rotates and shifts it to fill the screen with 
your own ‘Escher’. 

First the computer asks for the graphic mode: 

Graphic modes: 

1. very LOW resolution 

2. LOW resolution 

3. HIGH resolution 

4. very HIGH resolution 

and you enter your choice, for instance 2. 

The the computer asks you to enter the size of your basic square, which 
you then have to fill, row by row, with colored pixels. The size of the pixels 
depends on the resolution you have chosen. Each key of the keyboard repre¬ 
sents one colored pixel. You can delete the last entered pixel with the backspace 
key. 

After you have filled your basic square the computer asks: 

Enter length of board (max . . . .):? 

and 

Enter width of board (max . . . .):? 

Now you fill the board with basic squares by pressing the N, W, E or S-key. 
These keys indicate the direction of each basic square, as it is displayed on the 
screen. (N = north, W = west, E = east, S = south). If you want to change the 
dimensions of the board, press the START key! 
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10 Rtfi #*#*# Escher Game #*### 

20 Din xsti) 

30 OPEN #<1,4,0, "K: " 

40 GOTO 900 

99 REPI ##* initialize ### 

100 GRAPHICS 0_ 

110 ? “ ESC >L=J< ESC >< T HB >E S C H E R G 
H Pi E“ 

1 20 ? “<ESC >L= J<ESC>C=KESC><IAB>Grapwic 
s modes : “ 

130 ? “<ESC.>L=J<ESC><Thb> 1. very LOH res 
oiution" 

140 ? “ <ESC>E=J<ESCX T AB >2. LON resoiuti 
orr 

150 ? "<ESC>L=J<ESCXTAB>3. HIGH resolut 
i on" 

160 ? “<ESC>L=J<ESC><TAB>4. very HIGH re 
solution" 

170 •? “ < ESC>L=H< ESC X TAB >WW i c h mode do y 
ou want- : "; 

180 INPUT CIO: IF flu=i THEN 200 
190 FOR 1=5 TO 4&PI0: READ X:NExT I 
200 READ PIO: READ PIC: READ i'1R:READ OF 
210 ? :? “<ESC><TA6>Enter size of basic" 
220 ? “ <ESC><TAB>square (max “iINT<<PIR+l 

> : “i 

230 INPUT SI 

240 IF SKI OR SIXPlK +1 >-'2 iHtN 210 
£50 DI PI SQ< SI - 1 > SI -1 > 

260 DATA 3, 40,20,4, 3, 80, 46,2 
270 DATA 7,160,95,1, 8,320,191,1 
280 RETURN 

299 REPI *** initialize screen ##* 

300 DL=PEEK< 560 }+256&PEEKX 561 >+3 
310 POKE DL,70:POKE DL+3,6 

320 REPi Define your own colors j 

330 SETCOLOR 0,2,8 

340 SETCOLOR 1,12,10 

350 SETCOLOR 2,9,4 

360 SETCOLOR 3,4,6 

370 SETCOLOR 4,0,0 

380 RETURN 
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339 RErl ##* input basic square ### 

40W RESTORE 

410 READ fiOD: REHU NC: HEHU NR:HtHU Ohh 
420 IF SIXNR+1 ,v' 2 THEN 410 
430 sC=X Nc-S I X 2 * SR=X NR - SI V 2 
440 GRAPHICS fiOD+lS:GOSUB 300 _ 

450 FOR R=0 TO SI - 1iRP=R+SR+OPP 

480 POKE 8741:POSITION 0,0 

470 ? #6 i “enter data for basicsquare ,ro 

ui “ iR+i i “ "} 

480 POKE 87,i'iUU 

490 FOR 0=0 TO SI-1:CP=C+SC:C0L=X 

500 COLOR 2*0ul: PLOT CP,RP 

510 FOR H=l TO 25 

520 IF PEEKX764X>255 THEN 540 

530 NEXT H: COL= NOT COL:GOTO 5G0 

540 HE! 42,X! X=X+208: IF XX >334 THEN 5*O0 

550 COLOR 0sPLOT CP,RP:0=0-2 

580 IF C<—1 THEN R=R-i:RP=RP-i:C=SI-2 

570 NEXI 0 

580 SQ( R,0 ;■=;»;: COLOR XsPlOT Op,HP 

590 NEXT 0:NEXT R:RETURN 

539 REM 444 draw escher picture 444 

600 ? “<ESC>L< CLEAR >J<ESC >E=3Eriter iengt 

h o t" board (, max ■* i 

610 ? INK i'lOSi >i “ > : M iS INPUT Lb 

620 IF LEX 1 OR LEM'ICxSI THEN 600 

630 ? * Enter width of board c. max “j 

640 ? INIXTIRXSI >}" > s“j: INPUT Wl 

650 IF HiXI OR HI M'iRxSI THEN 630 

660 SC=X i'iC-SIXLE X’2: SR=X 1‘IR-SIXHl V2 

670 GRAPHICS PI0+l6:G0SUB 300 

680 POKE 87,2 

630 '? *6 i " RLJJJR Re sere rfi RL.J.J JR “ 
700 ? #6i" draw with njLL JWtL JeCdsENJ" 
710 POKE 87,NO 

720 FOR R0=0F+SR TO XWI-l>#8i+GF+SR STEP 
Si 

730 FOR 00=80 I'U XL£-l«Si+GC STEP SI 
740 IF PEEKc. 53279>=6 THEN 600 
750 IF PEEKX 764 >=255 THhN 740 
760 GET 42,X: X$=CHR$X X X X=0 
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770 X=< X$=“N“ )+2*< X$=“fc 4 H3*<X*=“S" >+4*< 
X$="H“; 

78a IF NO I X THEN ?40 

730 FOR R=0 TO SI-i:FOR 0=0 TO SI-1 

800 COLOR SGKR,C) 

810 ON X 60SUB 860,870,880,890 

820 NEXT C:NEXT R:NEXT CO:NEXT RO 

830 POKE 87,1:POSITION 0,1 

840 '< #6i“G£J30 fid r a w i n 90 0EJJ0“ 

850 RETURN 

860 PLOT CO+C,RO+R: RETURN : REIT <ESC>C-3 
870 PLOT C0+SI-1-R,R0+C: RETURN : REfi <ESC 

>CX3 

880 PLOT CO+Si-i-C,RO+SI-i-R:RETURN :RB1 
tESC>E=3 

830 PLOT CU+R,KO+SI-l-C: RETURN :Rtf1 <ESC 

l+3 

899 REl'i *###» mam program ##### 

300 60SUB 100: Rfc.fi initialize # 

910 60SU6 400:60'! input Basic square * 
920 bOSUB 600: REIT draw esc her picture # 
930 IF PEEKc. 53279 X >6 THEN 930 
940 POKt 764,255:6010 920 
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Genius at Work 

Play this simple game to find out how good you are at thinking mathemat¬ 
ically. After you have entered the number of players, the computer displays 
seven numbers and a larger ‘target’ number and asks 

OPERATION? 

You must pick two of the numbers and one of the four simple mathematical 
functions: 

addition + 
subtraction — 
multiplication x 
division / 

For instance, if you enter 7 + 18, the computer asks: 

Is this your final result? 

If you enter N, the computer calculates 7 + 18 = 25 and replaces the number 7 
and 18 in the initial list by 25. Now you choose again. Your task is to get a 
final result as near to the target number as you can. 

The character of this game is simplicity, so the whole family can play. 
When one player has finished their go, press any key to start again. Now you 
can find out if there is a genius in your family! 

10 Kti'i ######## Genius hc wor-K ###*#### 

20 Dlfl £K ? ?*F« 10 l > 

30 T=0:x=0:k=0 
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40 GOTO 800 

9a Rtf'l ### ranaom numbers ##* 

100 FUR 1=1 TO ? 

110 LX i )=IN'k IUsRnDC w ;+l j 
i20 iF_RNO<0><0.25 THEN LK I J=imR4¥RnD'. 0 
;>+1 >*29 
130 NEXT I 

140 F=I nT< < 9*RNLx 0 >+1 )X 1 00 > 

150 RETURN 

199 REi'l *## display ##* 

200 '? “ < ESC >CX CLEAR XK ESC >E=3Try to apro 
ac R this number: ";F 

210 '? “<ESC>C=3Vou have got these number 
s:<ESC>L=J*' 

220 FOR 1=1 TO ? 

230 IF 0(1)00 THEN '? LK I >i “ 

240 NEXT I 
250 '? 

260 RETURN 

299 REfl #*# input operation ### 

300 ? ''<ESC>E=3Enter operation “a INPUT 
F$ 

310 FUR N=1 TO LENiFS) 

320 E=HSC(F«N;0 

330 IF t41<E> RND <E<48> fHEN H=UML(FSi1 
jN-1 >>: B=UHL( F*< N+1 ,LEN( F$ >>): RETURN 
340 NEXT N 
350 GOTO 300 

399 REf'l *## compute new numbers *## 

400 FOR 0=1 TO 7 

410 IF U<J)=H THEN D< J1=0!GOTO 430 
420 NEXT JsGOTO 46u 
430 FOR 1=1 TO 7 

440 IF 0<I>=B THEN ON Ej4i GGSUB 500,510 
,0,520,0,530 :UhLF=D(I):kEIURN 
450 NEXT I: D< J )=H 

460 ? “ < ESC >C2TI< ESC >L2Jl “: X=0: POP :60T0 8 
10 

500 0(I)=H*B:RETUkN 
510 0(I1=H+B:RETURN 
520 QtI1 =H—b:RETURN 
530 D< I )=INT( H-'B ): RETURN 
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599 REfl *** compute points *#* 

690 ? “<tSC>L=3Is this your final result 

U . 

» 

610 INPUT Zi 

620 IF 2*0“ Y“ THEN POP :GOTO 810 
690 ? :? “Vou have: “iUfii_Fj“ or. “ ;F 
640 X=5-fl6SC F-UHLF > 

650 IF X<@ THEN X=0 

660 IF X=5 THEN ? “<ESC>t=3NELL DONE!“ 

670 T=T+X:fi=R+l 

680 ? “<ESC>E=3This maxes “;Xi" points" 
690 ? “<ESOC=JNow you have points 

it . 

» 

?@0 '?■ “ in “ifii" rounds" 

710 r “<ESC >t=3Hn average of “j INTO* 100 
/•ftVI00j“ points per round" 

720 ? “<ES6>L=jH9ain “j:INPUT 2$ 

730 IF 2*=“Y“ THEN POP :6GT0 800 
740 RETURN 

799 RBI ##*#* mam program #** 

800 GuSUB 100: REPI random numbers # 

810 60SUB 200:REPI display * 

820 GOSUB 300:RBI input operation * 

830 GOSUB 400:RBI compute new numbers # 
840 GOSUB 600:REPI compute points # 

850 ? “< ESC >L< CLEhR >3“:END 
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Shark Hunt 


For five days now you have been adrift in your boat searching the seven seas. 
Suddenly you see a slight ripple on the mirror-like surface of the ocean — there 
it is, your quarry, that terror of the deep — the shark. Move your boat using 
the cursor keys or the joystick. Your echo-sounder will tell you how close you 
are to the shark — the nearer you get the higher the note it gives. Stray too far 
from the shark and you are told 

SORRY; YOU WENT TOO FAR 

When you think you are close enough you can take a shot at the shark by 
pressing the space bar or pressing the red button on your joystick. If you hit 
the target you will see the message 

THAT'S IT! CONGRATULATIONS! 


Unfortunately you only have 200 ergs of energy to use. Moving your boat and 
firing your gun both cost energy. If you use up all your energy the computer 
tells you 
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YOU RAN OUT OF ENERGY 


At the end of the game you will be given information on your performance as a 
shark hunter. 

IB HEl'l ###### S h a r k H u n t ###### 

£0 DIM CO¥t 81 >, fvfi. 1 >,3 > ,VT-t 3> 

SB Li I n Tut, 3 ,y >,ST 1 k< 9,1 > 

40 OPEN #£, 4 , 0 ,“k:" 

50 POKE 752,1 
60 6010 1500 

99 RETi ### 1 n 1 t 1 ai 1 ze ### 

100 C0$=“sorry, you went too far Kira 
t'a it! Congratuiat 1 ons!Kvou ran out of 
energy 

110 X$=‘‘l r “: y$=“u d” 

120 FOR 10=0 TO 2:FOR N0=0 TO ? 

130 RENO RsTLK TO,NO >=R 

140 NEXT NO:NEXT TO 

150 DOTH 204,193,204,193,284,218,204 

160 DOTH 193,89,125,147,176,133,204 

1 70 UHIH 218,219,24,21, lfc», 15,12,9,6,3 

180 FOR 1=0 TO 9 

190 REND X, V: ST IK<I,0 >=X: ST i K< 1,1 )=Y 
200 NEXT I 

210 ON(N 3,3,3,~3,3,0,8,0,~3,3 
220 DNTN -3,-3,-3,0,0,0,0,3,0,-3 
230 RETURN 

233 REIT ### initialize one game ### 

300 NG=NG+l 

310 SX=INT< TUXRNOt 0 > >-35 
320 SY=INT< 70XRNLK 0 > >-35 
330 D i =N6S< SX >+NBS< SV > 

340 (TD=DI: 90=01: SH=0: H1=0: NS=0 
350 EN=200:OX=0:OV=0 
360 RETURN 

339 REM ### screen ### 

400 ? " < ESC >CX 3< ESC >C!=3 11 

410 ? “ e .. fi 
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415 ? “6 12 " 

420 ? “ <ESC>£=J<ESC:>< TAB >fimourrt of energ 
y: ergs 1 * 

430 POSITION 2,1? 

440 v “fiove by using the cursor keys or< 
ESC X TAB X ESC >< TAB >< ESC X TAB X ESC XIAB > 
the joystick 0 

450 “Shoot by pressing the space bar o 
r < ESCX TAB X ESC X TAB )■< ESC X TAB X ESC >< TAB 
> the red button 0 

460 POSITION 16,13 
470 ? “ D i rec t i on “ j 
480 POSITION 2,22 

490 ? “press <6START0> to start game*; 
500 IF PEEKX532?9X>6 THEN 508 
518 POSITION 2,22:? “<ESC:><SHIPTXBACK S 
XESCXSHIFT X INSERT >“ ; 

520 RETURN 

539 RECi ### input speed ### 

600 OX=0:UV=0 

610 IF PEEKt764>=255 THEN 670 
628 GET #2,IN 


/ 


630 UX=3*< < IN=42 X 11-4=43 > ) 

648 UY=3*< <IN=61 X 1N=45 >> 

650 SH=< 1N=32 > 

668 RET URN 

678 iN=STICK<8>: IF IN< > 15 THEN UX=STIK< I 
44-5*8 ): W=STIK< IN-5*l .) 

688 SH= NOT STRICT 0) 

630 RETURN 

693 REl’l ##* compute a i stance etc. 

780 IE NUT SH THEN 758 
718 NS=NS+1:EN=EN-2*0I 
728 IF EN<=0 THEN EN=0:RETURN 
730 HI =< DI *RND< 0 X=1 > 

750 SX=SX-UX:SV-SV-UV 
768 EN=EN-< UX< >0 >-< UY< >8 >-l 
770 IF EN<=8 THEN EN=0:RETURN 
788 SX=SX+SGN< SX >: SY=SV+SGN< SV > 

738 DI =ElBS< SX >+HBS< SV > 

800 IF DKf'IO TEEN 110=01 
818 RETURN 

833 REI'1 #44# output 4444# 

380 POSITION 20*9:? "£ fc , <ESC>t=TKESC.Ht+ 
TKESOE+JG e e e< ESC>C=J<ESOE+IKesc>e+j 
y i± *' * 

918 POSITION 20+S8N<UX >*10 
320 ? X$< S6N< UX )+2 * SG44< UX )+2 ) ; 

938 POSITION 28*10+SGNCUV> 

340 ? V$< S8N< UV >+2*SGN< UV1+2 H 

958 IF SH THEN GOSUB 1000 

360 SOUND 0*01*10*15 

970 W=100:GOSUB 1108 

988 POSITION 25*6:? EN*“ ergs “* 

938 RETURN 

933 REf'l ### snoot ### 

1008 FOR 1=228 TO 258 STEP 5 
1010 SOUND 1 * I * 10* 15:H=2:GOSUB 1180 
1028 SOUND 1*0*0*0:W=5:GOSUB 1188 
1038 NEXT I:RETURN 
1833 REN #44# wait 44## 

1100 FOR HH=1 TO N:NEXT NN:RETURN 
1139 RED #44# erw of this game ### 

1208 ? “ < ESC X SH IF T >< CLE44R >< ESC >E=3 “ ; CO? 
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(27*00+1,27*C 00+1 >>i “<£SC>t=3“ 

1210 FUR N0=0 TO 7 
1220 SOONO 8,TUTOH,00),10,15 
1238 0=25:GOSUB 1100 
1240 NEXT 00:SOUND @,0,0,0 
1250 ? “Strarting distance- : “;SD 

fli. " 

126@ ? “Number of snots : “ NS 

1270 ? “Vou approached within : “iT'lD 

m." 

1280 IF HI (HEN ? “Vou hit it from 
: m. •• 

1290 RE=50-DI/2 

13@0 IF Hi THE0 RE=50+EN/4+SCt'10 
1310 RE=1N'K RE ) 

1320 IF RE <8 THE0 RE =0 
1330 IF RE>100 THEN RE=10@ 

1340 TR=TR+RE 

1350 iF RE>flR THEN I‘|R=RE 

1360 y “<ESC>L=JRewards, on a scale of l 


00 :" 

16V@ Y " f'h i s game : “iRE 

1380 ? “Overage over ";nG;“ games : 

“jIOTcTR/NG) 

1390 ? “I'lax i mum : “ jI’IR 

1400 RETURN 

1493 REl'i ##### main program *###* 

15@0 008UB 180: REIT i n 111 ai i ze # 

1510 GOSOB 38@:REIT initialize i 'game » 
1520 GOSOB 400:RBlT screen # 

15310 GOSOB G00:REfl input tt 

1540 GOSUB 700:REN computing 4 

1550 GOSOB 90@: REIT output » 

1580 Cft=3*< EN=0 >+2*H I +T 01 > 100 )-1 
1570 if ofk@ Then 1530 

1580 GOSUB 120@:POKE 764,255 


1530 ? " ■<. ESC >L=JOnother game ? " ;: GEI #2 
, IN 

1600 if 1N=89 I HEN 1510 
1610 Y "< ESC >L< OLEHR >J":tNO 
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Shakespearian Shuffle 

Shakespeare, one of the world’s greatest writers, and chess, the king of games, 
are combined in this unusual puzzle. 

Letters are arranged on a chessboard like this: 
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A chesspiece, the knight, then moves around the board as it would in a normal 
game of chess. As it jumps from one square to another, the letters or symbols 
on the squares are exchanged. In this way the text on the board is jumbled up. 
The computer will ask you 

LEVEL? 

and you enter the number of moves you want the knight to make. Obviously, 


68 




the higher this number the more mixed up the board becomes. 

You will be shown the board after the knight has made his moves. Your 
task is to unscramble the text by moving the knight back around the board. 
Enter a number between 1 and 8 to move the knight, as shown. 



1 


2 


8 




3 



* 



7 




4 


6 


5 



lb REf'l ##*## Shakespearian shuttle 44444 
20 DI Pi HX< 7 3, Ht‘( 7.3 - H$( 64 3 , BT-i 64.3, NS< i > 

5® OPEN 42,4,U,"K:" 

40 GOTO 500 

99 REP! 444 initialize 444 

100 >0=1: V0=1 

110 REND Bs:N$=B$ 

i20 FOR k=0 TO 7 

130 REND H , 6: HXC K 3=N: HV( K 3=B 

140 NEXT K 

150 RETURN 

199 REP! #4# knight's move 444 

200 XS=HX< Pi >: VS=HV< Pi 3 

210 IF XS+XG>8 UR XS+X0<1 OR VS+V0>8 OR 
VS+V0< 1 THEN P1=INT< RNCK 0 3*8 >s GOTO 200 
220 XN=XO+XS:VN=VD+VS 
230 RETURN 

299 REPt 444 change letters 444 

300 F-XN+CVN-l 3*8 s D=X0+( VO-13*8 

310 M$=BS< F',P >:BS<. P,P 3=S$< y,y ): BSt 0,0 3=H 
S 
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328 POSITION l+XU,l+YO 

430 ? #6i6$< < VO-l >*8+X0,< VO-1 1*8+XU 1 

348 POSIT I OH 1+XN,1+YN:? #6;"V“i 

350 XO=XN:YO=VN 

360 RETURN 

399 REIT ff*# display *## 

400 POSITION 8,8:? #6? “Shakespeare shut i 

le #6 

410 FOR K=1 TO 8 

420 ? *6;“ “iBSCCK-l 1*8+1,K*81 

430 NEXT K 

440 POSITION 15,3:? #6;’‘8 1“ 

450 POSITION 14,4:? #6 ,“? 2" 

460 POSITION 16,5:? #6; H 6#G!“ 

4?0 POSITION 14,6:? #6;"6 3“ 

480 POSITION 15,?:? *6;“5 4“ 

490 RETURN 

499 REIT ##♦## main program ##### 

500 ? “< ESC >C< CLEAR >IK ESC >!=□< ESC iLOEnt 
er level :“j:INPUT L 

510 GRAPHICS 18 

520 60SUB 180:REN initialize # 

530 60SU8 400:REIT display # 

540 FOR K=1 TO L 

550 IT=INT< RND( 81*8 1 

560 60SUB 200:REIT knight's move # 

5?0 60SUB 300: REIT change letters # 

580 NEXT K 

590 POSITION 0,11:? #6i“enter move : 

i 

600 POSITION 12,11:GET #2,IT:? *6iCHRSOTl 
:fT=[1-49: IF TK0 OR IT>? THEN 590 
610 6GSUB 200:REIT kmght's move # 

620 GOSUB 300:REIT change letters # 

630 IF A$OB$ THEN 590 

640 POSITION 0,0:? #6;“congratulations! 

u 

650 POSITION 0,10:? #6;“edo 'you ui-ant to 
play againR ? '• i 

660 GET #2,IT: IF IT=89 THEN RUN 
6?0 END 

680 DATA 6to be ornot to beLLJ that i s t 
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Explosion 

Most computer versions of EXPLOSION set out the board for two or more 
opponents to play on. With this program you are pitted against the computer 
itself. Are you up to the challenge? 

EXPLOSION is played on a board of 3 x 3 or 4 x 4 squares. The 
computer will ask you to enter the size of the board you want. 

Each square on the board has a capacity equal to the number of squares 
directly adjoining it. This means that corner corner squares have a capacity of 2 



edge squares have a capacity of 3 



72 



and central squares have a capacity of 4. 



You and the computer have checkers, of opposite colors, that you place on 
the board in turn. You may place a checker on any empty square, or on any 
square which already has one or more of your own checkers on it. A square 
will ‘explode’ when the number of checkers it carries reaches its capacity. An 
exploding square empties, its checkers spreading out, one to each neighboring 
square. These checkers will ‘take over’ any opposing checkers on these squares. 

As the game progresses the explosions get bigger and bigger. Eventually 
the whole board will explode in one color. If it’s your color you’ve won! 


10 REM ##*## Explosion ##### 

2w DIM RB(S#S)»SetS^5J»8TtS»5)jittN« 1 > 
30 OPEN #2-4,0, "K.: “ 

40 GOTO 1300 

99 REM *## copy SB t,o R6 ### 

100 FOR X=1 70 SU FOR y=l TO SI 
110 SEX X , V >=R8< X , V ;■ 

120 NEXT vs NEXT X:RETORN 

199 REl'l ### copy RE: vo SB ### 

200 FOR X=1 70 SI:FOR v=l 70 SI 
210 R8< X , V )=SB< X , V > 

220 NEXT V:NEXT X:RETURN 

299 REM ### add to neiyhbour-s #*# 

300 SEX EX , EV i=F'LX« fiBSt SBC EX , EV ) >+1C' 
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31 a IF 01 WHO SKEX^EV) THEN 60306 708 
328 Fit I URN 

339 REIT ### execute explosion ### 

408 SBC X,Y >=SB(. X,V l+F'L 
418 NE=8 

420 EX=X:EY=Y:IF 01 THEN 60SUB 780 
438 XP=0 

448 FOR X=1 TO 31:FOR T-l TO SI 

468 IF RBSC SBC X*V > ><ST C X » V ) THEN 560 

470 XP=l:NE=NE+l 

430 IF 01 THEN 60SLIB 800 

500 SBC X,Y >=SB< X,V >-ST< X,V >*PL 

518 EX=X:EV=V:IF 01 THEN S0SU6 700 

528 EX=X:EV=V+1:GOSUB 300 

538 EX=X+i:EV=V:GOSUB 300 

548 EX=X:EY=V-i:GOSUB 388 

558 EX=X-i:EY=V: GOSUB 300 

568 NEXT V:NEXT X 

570 ET=CNE>SI£SI ) 

580 IF XP HNU NOT ET THEN 4c© 

530 RETURN 

599 REIT *#* evaluate situation ### 

608 EN=8 

618 FOR X=1 TO SI:FOR v=l TO SI 
620 EN=EN+SBc X»Y ) 

638 IF -SBC X»Y XSTC X,Y >-l THEN 668 
648 EN=EN-2 

658 EN=EN+ 18 XC C SBC X+1,Y >=STC X+l »Y 1—1 1+C S 
BC X,V+l X=STC X»V+1 )-l l+C SBC X-l ,Y >=STC X-l , 
V >-l )+C SBC X,V-1 >=STC X,Y-1 1-1 > > 

660 NEXT V:NEXT X 
678 RETURN 

639 REIT ### output one value ### 

700 POSITION 3+3XEX,2+2XEY 

718 ? #6;CHRSC RBSC SBC EX,EY ) H48+C 5+2SPL ) 
*32£C SBC EX,EY X >0.) > 

728 RETURN 

793 REIT ### output explosion *## 

808 SB=SBC X , Y >:EX=X:EY=V 
818 FOR 1=15 TO 1 STEP -1 
820 SOUND 8,80,8,1 
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U5@ 60SUB 400:REM execute exp lot ion # 
1168 IF ET THEN MX=TX: MY=TV: 6010 1200 
1170 GOSUB 600:REM evaluate situation # 
1180 IF EN<6E UR EN=BE AND RHDC0X0.4 TH 


EN' BE=EN: MX=TX: MV=TY 

1190 NEXT TV:NEXT TX 

1200 GOSUB 100: REM st> -> rb # 

1210 X=MX:V=MV: DI=l 

1220 60SUB 400:REM execute explosion # 
1230 IF ET THEN 1600: RETl end # 

1240 GOSUB 200:REM rb -> sb # 

1250 RETURN 

1299 REM *## mam program ### 

1300 GOSUB 1400:REM initialize # 

1310 IF CM THEN 1330 


1320 PL=i:GOSUB 900:REM player's move # 
1330 F'L=-1:GOSUB 1100:RElT comp's move # 
1340 NT=NT'+1 
1350 GOTO 1320 

1399 REM ### initialize *## 

1400 ? “<ESC>E<CLEHR>3<EEC>E= JEnter size 
of fc-oard <3 or 4> "; 

1410 INPUT SI:SI=INT<SI) 

1420 IF SI<3 OR SI>4 THEN 1400 

1430 FOR X=0 TO 5:FOR Y=0 TO 5 

1440 RBt X r V )=0: bB( Xj»Y )—0:6 f 1 X , t a —0 

1450 NEXT v:NEXT X 

1460 FOR X=1 TO Si:FOR Y=1 TO SI 

1470 ST< X#V )=4-< X=l)-< X=S1 J-< V—1 X V=SI ) 

1460 NEXT V:NEXT X 

1490 ? "<ESC>L=Jubo starts (you or me) •' 

# 

1500 INPUT HNS:CM=<HNS=“V"> 

1510 GRAPHICS IS 

1520 ? #6i"RCUJ-JJ explosion tJUdJlR“ 
1530 POSITION 5,2:? #6;“XI X2 X3“; 

1540 IF SI =4 THEN ? #6:1“ X4‘‘i 

1550 FOR V=1 TO SI 

1560 ? #6:? #6:? #6s“ V“iVi 

1570 FOR X=1 TO Si:? *6i" “iREX X,V)i 

1580 NEXT X:NEXT V 

1598 RETURN 
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1533 REP1 #*# end ### 

16@0 POSITION O r 1 

161 @ v #k "an eternal expxosionresultedlC 

LJ SO 

1620 IF PL=1 THEN ? #t;;"yyoue ";:60Tu 
1640 

1630 ? #6; “616 “ ; 

1640 ? #6;“ nave won in “; nT;" turns"; 
1650 GOTO 1650 
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New York, New York 

This original and exciting game puts you in a helicopter high over New York, 
looking down on the city’s streets. At the moment they are deserted, but soon 
traffic will appear, and it’s up to you to keep it moving. You do this by 
controlling the city’s traffic lights. When a car (represented by a square) 
reaches a red light it will stop. Each traffic light bears a symbol — pressing the 
key bearing that symbol changes the light to green and the car will continue on 
its journey. 

At the start of the game enter a level of difficulty, after which you will see 
the streets and cars. The game proceeds in rounds, during each of which the 
cars move ‘one step’. 

You start with 200 points. You gain 40 points for every car that gets right 
across the city. However, if two cars collide at a crossroads you lose 200 points. 





and every time a car has to stop at a traffic light you lose 10 points. If you run 
out of points the game ends — if not it lasts 200 rounds. The more points you 
get, the better traffic cop you are! 


1(3 Rtf'I ###### New Vor-K, New yore ###### 

2(3 Uif! CRt43,LNt43,Llt43 

'■Ski 01 fi CHt 8 >, SPt 8 > , L't. 8 > , St 8 3 , LUt 8 > 

48 Old C$t 16>,K$< 1 > 

ba 01 ii D$t2J,S*t263,L*<35.> 

SO UF'EN #6,0,0,“SS" 


?0 GOTO 1000 


yy Rti'l ft## initialize ### 

100 F UK 0=1 TO 4: RE* DsCRtC 
118 uRTH 234,246,438,426 
120 FOR L=0 TO 3:RE* !'): LitL 
130 OH I F) 32,37,133,128 


140 FOR 0=1 10 8: RE* LcSPtC 
150 OH1H 8,20,502,490,160,35: 
160 FOR 01=1 10 7 STEP 2 


j=0: NEXT 0 

3=1'): NEXT l 

>=D:_NEXT 0 
2,15fc*, -1*50 


180 
130 
20F 
210 
220 
0030 


230 


"0 RtFfLI U,LU 

y< 0 1 ;.=y: yc 01 +1 ;'=U 
LtXOl 3 =LO:lOc Cl+1 3=LU 
} NEXT Cl 

LIH f H 32 , — 1 , —-1*2,2,2,2*2*, —2 , —2*2 
C J= ■■ 12 L'r'J LVJRL't'JF' l-'tYjl-' F'LIJIJUUJE'LUU 


05= "(2 ti" 
40 S$=“ 

50 L5=" 12 


260 r " < E-Sc>L< OlEHR Xl-t ESO>t=JLevei < 1-3) 
" i: 1 NF'U f LE 
2.-0 LE=lNTtLE3 

280 if LE<1 OR LE>3 I HEN GOTO 260 
290 LE=16-4XLE 
300 60=200 

310 FOR 6=1 TO 8: St 6 3=0: NEXT 6 
320 FOR 8=1 TO 4: LNt 6 3=0: NEXT 6 
330 RETURN 

399 REIT ftft# screen ### 
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406 GRAPHICS 0 sPOKE 7-52,1:POSIT1ON 11^1 
402 v "New yon;, New York<tSOE=J<ESC>E= 
3<ESt>£=J" 

410 FOR R=0 IU 3s? S$sNEXT Rs? L?:? L$ 
420 FOR R=0 10 3:? S$:NEXT Rs? L$:? L$ 
430 FOR R=0 TO 3:? 8$:NEXT R 
440 POSITION 9,?:? “0“ 

450 POSITION 30,?:? “M“ 

460 POSITION 9,18:? “A“ 

4?0 POSITION 38,18:? “S“ 

488 FOR C=1 TO 4:L=0:GOSUB 570 
430 POSITION 1+V,E:? “GCT3G“ 

500 FOR L=l TO 3:GOSUB 578 
510 POSITION 1+Y,E:? •‘LTJ“ 

520 NEXT LSNEXT C 

530 POSITION 5,3:? “points:“ 

540 POSITION 25,3:? “Rounds:* 1 

550 POSITION 7,22:? “LISTHSs Red = E'tOR 

, Green = LTJ“ 

560 RETURN 

570 x=CRTC7+LiTL7 s£=INT<X/32 > 

58@ P=32*E: Y=X—P 
530 RETURN 

683 REl'i ### car drives ### 

780 A=I NTT LESRNDT 0 > 7 

710 IF ST C 7=8 AND AT >1 THEN RETURN 

720 IF S'T 0=8 AND A=1 THEN CAT C 7=SP< C 7S R 

tl'i new car 

730 IF S<CX>3 AND SCOT>3 THEN GOTO 760 
740 X=4+CAT C 7+lOt 0 7-32*1 NTT < CAT C 7+LOT C 7 ) 
,-32 >: Y=5+INT< < CAT C >+L0T C » V32 ): POS IT ION 
X,y:GET #6,S:POSITION X,V:PUT #6,S 
750 IF S=148 THEN PU=PU-10:SOUND 0,88,10 
,15:FOR A=i TO 20:NEXT A:SOUND @,0,8,0:R 
ETURN 

768 POSIT1ON 4+CA<0>-32*INTTCAT CV32>,S+ 
I NTT CAT C 7/32 >’■ ? US 
778 CAT C >=CAT C 7+UT C > 

780 ST C 7=ST C >+1 

798 IF STC7=15 THEN STC7=8:PU=PU+40:FOR 
W=80 TO 30 STEP -1:SOUND 8,A,1@,15:NEXT 
h:SOUND 8,0,8,0:RETURN 
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Riifi x=4+W C>-32*IN l < CPKCV32 > : V=5+ iNR U 
Re f: V32 ): PQSITI ON X * V: St T #6 *S: POSI Ti UN 
X,V:PUT #6*S: POS 11'I ON X,Y 
810 IP S=l6U THEN ? C$C2*C-1*2*C>:RETURN 

820 SOUND 8*180*8*15:FOR N=1 TO 200:NEXT 
w:SOUND 0*0*8*0 
830 PU=PU-200 
840 S< C >=8 
850 RETURN 

89S RED #4# change ligths ### 

y00 CR=< K.=4? X2* 1 * K— 46 >+3?i. K—62 >+4X'% K = 6l* > 

310 IF CR=0 THEN RETURN 

920 GOSUB S?0s? “CT3“ 

830 LN< CR >=LN< DR >+1 

340 IF LN( CR >=4 THEN LN<. CR >=0 

950 GOSUB 970:? “SETUR'* 

960 RETURN 

9?0 POSITION 1+CR< CR >+Ll< LN< CR > >-32*INK 
< CR< CR >+Ll< LN( CR > > V32 >* I NT < < CR< CR )+Ll< L 
N< CR > > V32 > 

980 RETURN 

999 RED ####* mam program ####* 

1000 GOSUB 100JREFI initialise # 

1010 GOSUB 400: REPI screen # 

1020 FOR C?1 TO 8 

1030 GOSUB 700!REH car drives # 

1040 K=PEEK< 764 >:POKE 764*255 
1050 IF K<>255 THEN GOSUB 900!RED change 
iigths 

i860 NEXT C 

1070 NR=NR+1 

1088 IF PU<0 THEN FU=0 

1090 POSITION 13*3:? PU**' 

1108 POSITION 33*3:? NR 

1110 IF PU>@ HND NR<200 THEN GOTO 1028 

1128 POSITION 5*22:POKE 752*0 

1130 ? “ < ESC >< SHI FT X BHCK SXESOC2IKESC 

XTUBXESC>•<TH8>Once again “j: INPUT K$ 

1148 IF K$=“V THEN RUN 

1158 END 
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Key 

Searching for a key you have lost can be an aggravating experience at the best 
of times, but when you have to find it as quickly as possible and, what’s more, 
it’s hidden inside a computer the whole thing becomes very exasperating, but 
also very challenging. 

The computer has stored inside it a string of 20 ones and zeroes. 

I 0 I 00 I 0 I 0 I I I 0 I 0 I 0 I 10 

These figures can be shifted cyclically, that is, digits are moved from the 
lefthand end to the right. This is done three times and the numbers in each 
column added, for instance 

row I—>00 10101 I I 0 I 0 I 0 I I 0 I 0 I 
row 2 -> 0 I I I 01 0 I 0 I I 0 I 0 I 00 I 01 
row 3 —> 0 I 00 I 0 I 0 I I I 010 10 I 101 

sums-» 022 I 2 I 222230303 I 1303 

This is all kept hidden from you: it is in fact the key you must find. 

What you are shown are the three rows of numbers, each shifted again. 
For instance if the top row is shifted two positions, the middle row four 
positions and the bottom row eight positions you will see 

I 0 I 0 I I I 0 I 0 I 0 I I 010100 
01010! I 0 I 0 S 00 I 0 I 0 I I I 
I I I 01010 1 I 0 I 0 I 0010 10 

20000 I I 2 I I I I 23310 122 
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You are not shown the sum of the new columns but the difference for each 
column, between this sum and the first ‘hidden’ sum. In the first column, for 
instance, the hidden sum was 0 and the new sum is 2 so you see 2; in the second 
column the hidden sum was 2 and so is the new sum so you see 0. You must 
now shift the three rows until they are the same as the hidden key, when, of 
course, all the differences will be 0. The rows are numbered (the top row is 1, 
the middle 2 and the bottom 3) so that if you enter 

ROW = 2 

STEPS =1 

the middle row will shift one position to the left. 

How few turns will it take you to find the key? It has been done in as few 
as 10. 





20 Did T(4i20>»ftf<20> 

3© GRAPHICS 2 
40 GOTO 600 

99 REI1 ### initialize ### 

100 ? #6;" £« key XXs" 

110 ? #6;“TURN : “;NT 

120 R$= “1010010101 1 1010101 10“ 

130 GuSUB 200:REt'l randomize rows # 

140 FOR K=1 TO 20 

150 T< 4,K )=T< 1 ,K >+T( 2*K )+T< 3,K > 

160 NEXT K 

170 GuSUB 200:REd randomize rows # 

180 RETURN 

199 REd ##* randomize rows ### 

200 FOR J=1 TO 3 

210 R=INT(RNO<0)*19+1 > 

220 FOR K=1 TO 20 
230 D1S=K+R 

240 IF DIS>20 THEN DIS=DIS-20 
250 TCiMO^UOURttOIS^DIS)) 

268 NEXT K 
270 NEXT J 
280 RETURN 

298 REd ### input ### 

300 ? “Row :“j:INPUT J 
310 IF J<1 OR J>3 THEN 300 
320 ? “Steps :"i:INPUT S 
330 IF S<1 OR S>19 THEN 320 
348 RETURN 

339 REd ### shift row ##* 

400 FOR 1=1 TO S 
410 H=T<J,ll 
420 FOR K=1 TO 19 
430 T< J,K)=T<U,K+1 > 

440 NEXT K 
450 T< J#20 >=H 
460 NEXT 1 
470 RETURN 

499 REd ### output ### 

500 POSITION 7#i:? #6;NT“<ESC>t<CLEH 
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R>3":N2=0 

516 FOR K=1 TO 20 

520 POSITION K-1,3:? #6j7T 1,10 

530 POSITION K.-1 ,4: ? #6,-R2,lO 

540 POSITION K-1,5:? #6iT<3,lO 

550 u=rbs< T( 4 ,IO-T( 3 ,io-T< 2 ,k.>- 7 <i1,101 

5S0 IP" U=0 TPIEN N2=N2+1 

570 POSITION K-l,?:? #6;U 

580 NEXT K 

590 RETURN 

599 REI'I ### main program ### 

800 60SUB 100: REIT initialize # 

610 60SLIB 5005 REH output # 

620 IF N2=20 THEN POSITION 0,9:? #6f900 
d in “;NTi“ turns":ENO 
630 NT=NT+1 

640 0OSUB 300:REH input # 

650 6GSUB 400:REI'I shift row # 

680 GOTO 610 
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Black Box 

Armed only with a laser beam you must discover the whereabouts of a handful 
of atoms hidden in a vast black box. 

The box consists of 8 X 8 X 8 cubes. Atoms can be hidden in any of the 
cubes, apart from those in the outer layer. However, there are never more than 
five atoms in the box. These atoms will reflect or divert laser beams according 
to the following rules. 

—a beam which strikes an atom is reflected straight back in the opposite 
direction 



> 


—a beam which is set to pass through a cube directly adjacent to an atom 
will be reflected at right angles 



—a beam which is set to pass through a cube diagonally adjacent to an 
atom will be reflected in a direction which can be obtained by adding two 
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The computer will ask you to enter PI, P2, and P3, the coordinates of the 
position where you want the beam to enter the box. Obviously, this must be on 
the surface, so at least one of the coordinates must be 1 or 8. When you have 
entered the shot the computer will tell you where the beam has emerged. 
Remember that a beam may be reflected by more than one atom. After you 
have had a few shots you should be able to work out where the atoms are. 


10 Rtf I ####### 8 i a c k B o x »*##### 
20 0111 I'K. 3,9;',HH$t 1 > 

30 GOTO 500 

93 Rtl'i ### compute result ### 

100 31=0:32=0:33=0 

110 ON Pi=1 .;■+*; P1 =8 l*2-K P2= 11*3+< P2=8 1X4 
+1 F'3= 1 >#5+< P3=8 jct6 GOSOB 240 , 250 r 280 > 2 30 
,280,290 

120 FOR 01=-1 TO 1 
138 FOR 02=-1 TO 1 
140 FOR 03=-1 VO 1 
150 FOR 1=1 TO 5 

160 IF c.< I'K T, 1 )=F'1+H1 ) 0NO <fK I ,21=82+02 
0ND t I'K T,3>=P3+03>> THEN 81=81-Hi:82=3 
2-02:83=83-03:T=5 
17*0 NEXT T 

180 NEXT 03:NEXT 02:NtXT 01 

190 Sl=S6N<8l):32=S6NtS2?:S3=S8N<83) 

200 P1=P 1 + 81 :P2-P2+S2:P3=P3+S3 

210 IF ( P1 =0 J+C P1 =3 i+t P2=0> +( . P2=9.J+< P3=0 

.)+■; P3=91=0 THEN 120 

220 ? “Result: “;Pl-8l;“ “iP2-S2;“ “iP3- 


830 

RETURN 

240 

31=1 

:RETURN 


Sl=- 

1: RE TURN 

260 

82=1 

: RETURN 

27& 

•j£l = “ 

1:RE 1 URN 

280 

83=1 

: RETURN 

230 

S3 = — 

1:RE TURN 


283 REi'i mpux. coordinates ### 
30ti ? "Enter coordinates" 
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310 ? “Pl= INPUT Pi 
320 IF PKl OR Pi>8 IHEN 310 
330 ? “P2= “i:INPUT P2 
340 IF P2\1 OR P2>6 THEN 33® 

350 ? "P3- “is input P3 
360 IF P3<1 OR P3>6 THEN 350 
3?0 RETURN 

399 RETT initialize ### 

400 FOR T=1 TO 5 
410 FOR S=1 TO 3 

420 m T »S T=lN ft RNOt 0 ;«6+2 ) 

430 NEXT S 
440 NEXT T 

450 ? " •<ESC.>C<CLEAR>J<ESC>E=3= BUT 
C K. B 0 X =<ESC>C=3“ 

460 RETURN 

439 REIT *###* mam program immt 
500 GOSUB 4005REIT initialize # 

510 ? "p1ease enter snot“ 

520 GOSUB 300:REN input coordinates # 

530 if t. pl=i >+< pl=8 m P2=l T+t P2=8 .)+< P3=l 

i-K P3=y x ;=■ i I HEN 520 

540 GOSUB 100: RETI compute result # 

550 ? :Y “Snoot or guess “j:INPUT HWS 

560 if hw$=''S“ then 510 

530 ? “please enter guess“ 

560 GOSUB 380:RETT input coordinates # 

590 FUR T=1 TO 5 

600 IF UTt 131 ;=P1 > FIND U'K 1 ,2 )=F'2.) HNO t 
I'K 1 ,3>=H3> THEN ? ”Right ! “:GOTO 550 
610 NEXT T 

620 ? "wrong !“:GO TO 550 
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Treasure Hunt 


Have you ever dreamed of going in search of hidden treasure? Of journeying 
through wild and hostile countryside, living off the land and sleeping rough, 
until you reach the remote and forbidding land where your glittering prize is 
hidden? If so, this is the game for you. 

You will be taken high up into the Rocky Mountains and given a map 
which shows where the treasures you seek are hidden, and what they are worth. 
To reach them you must make your way along narrow twisting paths — one 
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false step means certain death — by using the I, J, K and M keys. You discover 
the treasures simply by treading on them. 

But wait . . . it’s not that easy. You didn’t really think it would be that 
simple, did you? The treasures you seek are very carefully guarded by some 
extremely vicious and terrifying birds who will attack you if you are not 
careful. If they get you in their sights you will be paralyzed with fear. The only 
thing you can do to try and stop them is to press the S key. 

If you still feel up to the challenge start your search in the lower left hand 
corner of the map. Collect as much treasure as you can and take it away 
through the upper right hand exit. This will give you bonus points, and another 
chance to journey along the paths, picking up treasure. In fact you can make as 
many treasure-seeking trips as you can get away with. Unfortunately each time 
you go through you disturb more of those appalling birds, who become increas¬ 
ingly aggressive. 

The risks are high, but so are the rewards, so gather up your courage and 
off you go! 

10 REP) ######### treasure Hunt ######### 

20 01 PI i$<. 15 >, B$(. 300 > 

3w DIP! Pl$< i XpSPsc i >j.i'itm l x*BI« i > 

40 OPEN #2*4*0* "K.:" 

50 GRAPHICS 1? 

60 GOTO 1000 

99 REP) ### change character-set ### 

100 rOP=PEEKX 106 )—8 

110 PUKE 204*TOP:POKE 206*224 

120 FOR (J=1536 TO 1555 

130 READ U:pOKt 0*0 

140 NEXT 0 

150 U=USR< 1536.1 

160 0010 104*162*4*160*0*1??*205*145*283 
* 200* 208 *249*230* 206 * 230* ^04 *i0Z*206 * 242 
,96 

170 RhPISET=T06*256 

188 FOR U=RAPISET+3*8 TO R0PISET+5*8+7 
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190 REUD Us POKE LOU 
200 NEXT U 
210 POKE 756,TOP 
220 RETURN 

260 Du IU 255,255,255*255,255,255,255,255 
240 DUTU 57,107,254,60,60,254,123,49 
250 DUTU 169,189,153,255,60,60,36,102 

299 REP! ### initialize- & screen ### 

300 nU?-= “e#e": BI■$=• 11 ECU“: PL$= “PEE38":SP$= 

310 ? #6i “< ESC>L-\ CLEUR>3“ iPL$i61 “S tre 

asure hunt P“iPuiuBi? 

320 ? #6 i “RUNS : “;NC 
330 ? #6j “BOOTS'! “;P2 
340 RESTORE 480 
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350 FOR V=0 TO 13 

360 READ T$:6«15SY+1)=T*:? #6;T* 

3?0 NEXT V 

380 X= 1: V= 13: POSI T I ON X,V+3:? *SiPL$; 
390 RETURN 

393 REIT ### screen data ### 

410 doth e#e? e#ese#e 9 eie ?e #6 e#e 
420 data e##e e #6 e#e 6##6 6 #e 
430 doth e##e e#*#####e e#e g#g 
440 data s#£ e#e e##e 

450 DATA G#G £####G S####SSG#£ 

460 data e#e e*e 3 e#*###e se#e e*e 
470 DATA G#G G#6 4G#65 £#64 6#G 

480 cato e###e e#e e####e e##e e#e 
490 data e#e e#e e#G e#e 
so© data e#e e###e e#####e e#e 
510 cata e#e g# 64 e##e e##e 

520 data e*###eie####e e##e 
530 data e#e 3e##e e##e 2e#e 
540 cata e#e e#eiG#e36#e e##63 e###e 
550 cato e#e e#e e###e e##e e#63e#e 
560 cato e#e e#e 

570 data e###e e##e e###e e##e e#e 
580 data e#e e#ei e#es e#e 

539 REIT *## player's move ##4 
600 TI =RND< 0 >*< 400-30XNC > 

810 FOR DU=1 TO TI 

620 IF PEEK!764 >=255 THEN 750 

630 bET 42,IN 

640 OX=T I N=42 >-(, I N=43 > 

650 OV=tIN=61>-(IN=45> 

660 LOCATE X+UX,V+UV+3,ST 
670 IF ST=ASC<HU*> THEN 750 
680 POSITION X,V+3s'T #6iSP33 
690 X=X+Ox:V=V+UY 
700 P0=ST-48 

710 IF PCK0 OR P0>3 THEN 750 
720 B$< VS 15+1+X,VS 15+1+X )-3P$ 

730 PI=P1+P0:P2=P2+P0 
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740 POSITION 7,2:? #6;P2i" DOllhR"; 

750 POSITION X,V+3:? #t:;PLS; 

/SO IF V=0 THEN 00=11 
770 NEXT DU 
780 IF V=19 THEN SOU 
790 RETURN 

799 REN ### bird attacks #*# 

888 DT=25-5*NC:BX=19 

810 POSITION BX,V+3s? #6;8I$;:60T0 840 

S'20 BX=BX-1 

838 POSITION eXj.V+3:? #8;BI»;“ “i 

840 FOR W=1 TO OTsNEXT W 

850 IF BX>0 AND PEEK< 764>< >33 THEN 820 

860 IF BX<=X THEN POSITION 4,23:? #6;“en 

d of game";:GOTO 8SO 

870 POSITION 0,V+3 

880 ? *6iB»V*15+l,<V+l >Xl5)i“ "i 
890 Pl=Pl+l 

988 POSITION X,V+3:? #6;PL$; 

910 RETURN 

999 RED ##### main program ##### 

1000 60SUB 100:REM characterset # 

1010 GOSUB 3O0:REIT initialize & screen # 
1020 GOSUB 600:REIT player 's move # 

1030 IF v=0 THEN NC=NC+1:P2=P2+NCXP1:P1= 
0: GOT 0 1U10 

1040 GOSUB 800:ROT bird attacks # 

1050 GOTO 1020 
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I.T. — The Adventure of the 
Century 

In this crazy adventure you will sink into the bowels of the earth and meet a 
very strange creature who lives there. His name is, of course, I.T. which stands 
for Intra Terrestrial. 

If you have never played an adventure game before don’t worry about the 
rules — there aren’t any! You have to work everything out for yourself as you 
journey beneath the earth’s surface, performing extraordinary tasks and facing 
terrifying dangers as you go. If it all gets too much for you enter HELP and see 
what the computer comes up with. 

So, type in the game, take out a good insurance policy, give the RUN 
command, and off you go! 




10 RBI *##*#*#**#*♦# 1. T. #########*### 

100 GOSUB 5000 
110 1HD=8:NKAP1=0 
120 GOTO 140 
130 GOSUB 500 
140 GOSUB 1000 
150 GOSUB S00 

160 IF CHOC6 THEN GOTO 130 

120 GRAPHICS 0 

180 ? “ CONGRATULATIONS! 

190 ? “ VOU KILLED VOURSELF 
200 STOP 

500 REf'l ##* input ### 

510 NKAfI=0: IHD=0 

530 ? “HRat mould you like to do“ 

540 INPUT VV$ 

545 IF LEN< VV$ )=0 THEN GOTO 530 
550 FOR 1=0 TO 14 

560 IF H*< I£11+1,IX11+LEN<VV$T>=VV* THEN 
IHD=I+1!1=15 
570 NEXT 1 

580 IF IH0=13 THEN ? “ON OR OFF?":INPUT 

VV$:IF VV$V2)="F“ THEN IHO=14 

590 IF IHD>6 THEN RETURN 

600 IF IHD=0 THEN ? “I DON'T UNDERSTAND 

VOU":GOTO 500 

610 NKAfl=K< IKIT*1HD>:IF NKAfK >0 THEN RtTU 
RN 

620 ? “VOU CAN'T GO IN THAT DIRECTION":G 
OTO 500 
670 RETURN 
800 REf'l OUTPUT 

810 ? “VOU'RE IN THE “;R*< IKf'l*15-l4,15*1 
Kf'l > 

811 IF I KIT >24 OR BLL=1 THEN GOTO 820 

812 ? “VOU CAN'T SEE I'lLICH HERE":GOTO 830 
820 IF IUA< >0 THEN ? "THERE IS A “;USt12 
* IUH-11,12*IUN >;“HERE“ 

830 FOR 1=1 TO 6: IP K< IKT'T, I X >0 THEN ? " 
VOU CAN GO “;H#(1X11-10,1X11> 

840 NEXT I 
850 ? :? :RETURN 
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1000 REIT XXXaX OPERATIONS xaaax 

1010 IF NKAi'K >0 THEN IKIT=NKAIT 

1020 IUW=0 

1030 FOR 1=1 TO 12 

1040 IF UCI)=IKH THEN IUN=I:I=12 

1050 NEXT I 

1060 IPS=0 

1070 FOR 1=1 TO 6 

1080 IF PC 1,1>=1KH THEN IPS=1:I=6 

1090 NEXT I 

1100 REf'l XX GENERAL OPERATIONS XX 
1110 IF <IKfK12> AND (CRIOS) THEN GOSUB 
4860 

1120 CLL=ClL+BlL 

1200 REIT a PERSONAL OPERATIONS XX 
1210 IF IHD<7 THEN GOTO 1240 
1220 GOSUB 1300-K IHD-7>X200 
1230 REIT HANDLERS 
1240 IF IPS=0 THEN RETURN 
1250 GOSUB 3000+1 IPS—11X200 
1260 RETURN 

1300 REIT XXXX KILL XXXX 

1310 IF <IPS=0> OR 11PS>4> THEN PRINT "T 

I TIE IS THE ONLV THING VOU LAN KILL HER 

E!“:RETURN 

1320 LET iUWB=7 

1330 GOSUB 4800 

1340 IF 162=0 THEN ? “I WON'T LEl VOO AT 
TACK WITH BAREHANDSiTHAT'S SUICIDE":RE IU 
RN 

1350 PRINT “SO VOU WANT TO KILL 1HE“;P$< 
1+10XIPS-10,10XIPS> 

1360 ? “VOU ATTACK IT WITH VOUR SWORD “i 
1370 IF RNO10X0.5 THEN ? “GOT VOUR OICT 
I IT MOOES AWAV OUICKLV" :GOTO 1395 
1380 ? “AND VOU GIOE VOUR UICTilT A TERRI 
BLE BLOW" 

1390 LET PUPS,3>=P( IPS,3>-1 
1395 IF RND10>>0.2 THEN GOTO 1440 
1400 ? “THIS IS VOUR CHANCE:VOU CAN HIT 
IT AGAIN BEFORE IT RECOUERS" 

1410 ? “DO VOO WANT TO?" 

1411 INPUT W$ 
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1420 IF W$( 1 )<>“V“ THEN GOTO 1440 
1430 ? “VOU RHISE VGUR SHORD RGfllN “;:6U 
TO 1370 

1440 IF FK IPS.*3)>1 THEN RETURN 

1450 IF P(IPS,3>=1 THEN ? “VOUR UICTIPi I 

S BNDLV HOUNDED* 1 : RETURN 

1460 ? “VOU KILLED VOUR UICTIIT 

1470 P<IPS,1>=0:1UW=8+1hS 

1480 U< IUH)=IKf'l: IPS=0 

1490 RETURN 

1500 REP1 **** HELP **** 

1510 ? “POSSIBLE COCiriHNDS: “ 

1520 FUR 1=1 TO 15 
1530 ? H$<1+11*1-11^11*1> 

1540 NEXT I 
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1550 ? 

1560 RETURN 

1700 REf'l XXXX TAKE 

1710 IF IUWO0 THEN GOTO 1740 

1720 ? "THERE IS NOTHING TO THKE HERE" 

1730 RETORN 

1740 ? "VOU THKE THE "iU«1+IUWX12-12,IU 
WX12) 

1751 BC I6TIH>0=IUW 
1760 IBfTHX=I6('iHX+l 
1770 U( IUHWI 
1780 1UW=0 
1780 RETURN 

1900 REN DROP XXX* 

1909 ? "WHHT 00 VOU WANT TO DROP?" 

1911 INPUT YY$ 

1912 L=LEN< VV$ ) 

1920 IUHt:=0 

1930 FOR 1=1 TO 12 

1940 IF W$=U$<l+<I-l>*l2,12*a-li+L;' IH 
EN IUHB=I: 1 = 12 
1950 NEXT I 

I960 IF IUWBO0 THEN GOTO 1990 

1970 ? "I DON'T UNDERSTHnD VOU" 

i960 RETURN 

1990 GOSUB 4800 

2000 IF IBZO0 THEN GOTO 2030 

2010 ? “VOU DON'T HRUE H “;VV* 

2020 RETURN 

2030 ? "VOU DROPPED THE ";U*C 1+12XEK IBZ.> 
-12,12*B< IBZ > ') 

2040 IUW=6<IBZ > 

2050 UB< IBZ>>=IKfl 
2060 Be IBZ >=EK IBP1RX-1 ) 

2070 I BPIAX= IBCIHX-1 

2080 ? “DO VOU HHNT TO OROH f'tQRE?" 

2090 INPUT YY$ 

2091 IF YY$< 1,1 >=“Y“ THEN GOTO 1900 
2095 RETURN 

2100 REP1 **X INVENT XXX 

2110 IF IBPiRXOl THEN GOTO 214@_ 

2120 ? “VOU OHN ONLY ‘YOUR CLOTHES" 
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2130 SOTO 2180 

2140 ? “VOU HAUE THE FOLLOWING THINGS:“ 
2150 FOR 1=1 TO IBPiHX-1 
2160 ? U$< 1+12*B< I )-12,12sB< I 
2170 NEXT I 

2180 ? “VOU CHN SURUIUE “ ;5-CWD; “ i'luRE W 
OUNDS" 

2190 RETURN 

2300 REi'l ttt BANDAGE 

2310 IUWB=6 

2320 GOSUB 4800 

2330 IF IB2O0 THEN GOTO 2360 

2340 ? “VOU WON'T PIANAGE THAT WITHOUT BA 

NOhGE" 

2350 RETURN 

2360 ? “IT DOESN'T LOOK UERV HOPEFUL" 
2370 ? “VOU'LL NEED ALL VOU HADE" 

2380 SOUND 0,244,10,10 

2390 ? “SO THHT WILL HOLD FOR H WHILE" 

2400 CWD=0 

2410 B< IBZ 7=B< lBf'iHX-1 > 

2420 I BnflX= I BPIfiX-1 
2430 RETURN 

2500 REi'l ttt LHNlERN ON 

2510 IUWB=1 

2520 GOSUB 4800 

2530 IF IB2O0 THEN GOTO 2560 

2540 ? “GET A LHNlERN FIRST" 

2550 RETURN 

2560 ? “VOU TURNED THE LANTERN ON" 

2570 BLL=1 
2580 RETURN 

2700 REN LANTERN OFF £»* 

2710 IUWB=1 

2720 GOSUB 4800 

2730 IF 16200 THEN GOTO 2760 

2740 ? “VOU DO NOT EUEN HAUL A LANTERN" 

2750 RETURN 

2760 ? "THE LANTERN IS OFF" 

2770 BLL=0 

2780 RETURN 

2900 REi'l IB8 REALi 
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2990 RETURN 

3000 REI'l JfcfcfcmsK* I.T. ia»m 
3010 IF IUN=3 THEN p< 1,2>=3:U( IUW>=0: IUH 
=0 

3020 GOTO 3020+P<1,2>*10 

3030 ? "I.T.< THE INTRATERRESTIAL) IS HER 
E“ 

3031 ? ‘‘HE'S TALKING URGENTLY," 

3032 ? “BUT VOU DON'T UNDERSTAND Hlfl" 

3033 P< 1,2>=2 

3034 RETURN 

3040 ? “I.T. GESTURES THAT HE IS UERV“ 

3042 ? “THIRSTV. HE LOOKS RATHER OESPERA 
TE“ 

3043 RETURN 

3050 ? “I.T. DRINKS THE HATER AS HE NEED 
S" 

3051 ? "IT UERY PIUCH.AFTER A HHiLE HE ST 
ARTS" 

3052 ? ‘‘TALKING AGAIN.NOH VOU CAN“ 

3053 ? "UNDERSTAND Hli‘)“ 

3054 ? "He says :PLEASE GO DOWN INTO THE 

CAGES AND FIND THE NULLITY BOMB" 

3055 ? "SORE CRAZY PROFESSOR HANTS TO BL 
UH UP THE EARTH HITH IT" 

3056 ? “1 HAD A FIGHT HITH THE f'lONSTER T 

uiiT ppriTPr-TQ 17“ 

3057 ? “NOH I Tl TOO HEAKiSO ONLY YOU C 
AN SAUE THE EAF:TH FROf'l DESTRUCTION" 

3058 ? “SUDDENLY I.T. CDLLAPSES" 

305-9 K1.2 )=4:RETURN 

3060 ERROR- ? "IT LOOKS LIKE I.T. IS I 
N Cuf'lA “ GOT0305.0 

3061 ? "NOH YOU HAUE TO DO IT ALL ALONE" 

3062 ? "GOOD LUCK" 

3063 P< 1,2>=5 

3064 RETURN 

3070 ? "I.T. IS HERE " 

3071 ? "HE IS IN CODA" 

3072 RETURN 
3083 RETURN 

3200 REI'l tt EiRAGON ** 

3210 IF IUH=8 THEN F'(2.2>=5sU( IUH>=@: IUH 
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=0 

3220 GOTO 3220+t10SP< 2,2» 

3230 ? “THERE IS AN ENORMOUS MONSTER HER 

3231 ? "ITS EVES ARE ROLLING" 

3232 ? “IT VELLS:ARE VOU COOKIE?" 

3233 Pc 2,2 ;'=2 

3234 RETURN 

3240 ? "THE MONSTER VELLS LOUDER AND LOU 
DER: " 

3241 ? “ ARE VOU COOKIE?" 

3242 P<2j.2>=3 

3243 RETURN 

32b0 ? "IT KEEPS VELLIN6 AND BECOMES RAT 
HER HURESSIUE" 

3252 P(2#4'>=4 

3253 RETURN 

3260 ? "THE flONSTER GIUES VOU A TERRIBLE 
BLOW" 

3261 ? "VOUR HEAD IS SPINNING" 

3262 CWD=CWD+1 

3263 P< 2 # 2 >= INTX 3*< KNLK 0 > )+2 > 

3264 RETURN 

3270 ? "THE flONSTER SAVS SURPRISED: COOK I 

ES?" 

3271 ? “IT STARTS EATING AT ONCE" 

3272 ? “AN ENORMOUS BONG AND IT FALLS 
ASLEEP" 

3273 K<16j6>=1 

3274 PC2*2 >=6 

3275 RETURN 

3280 ? “THE MONSTER IS ASLEEP" 

3281 RETURN 

3400 REM Wtt SNAKE tttt 

3410 ? “THERE IS A SNEAKV SNAKE HERE" 

3420 IF RNDC0X0.4 THEN RETURN 

■3430 IF < IBMAK=1 > OR (RND<0X0.5) THEN 6 

OTO 3470 

3440 I BMAX= IBMAX-1 

3450 UCEK IBMAX>>=13+1NTC 12*RNDC0>> 

3460 ? "NITH A QUICK MOUE IT SNATCHES 
SOMETHING" 
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3470 ? "AND IT SNEERS AWhV" 

3480 Pc 3* i >=Pc 3*1 i+3 

3490 IF K3*l»24 THEN P<3*1 >=P<3,1 )-6 

3500 RETURN 

3800 RED *** HELLHOUND *** 

3620 GOTO 3620+F'C 4,2 ># 18 

3630 ? “THERE IS A GIANT HELLHOUND HERE" 

3631 ? “IT LOOKS LIKE HE HANTS VOU FOR 0 
INNER" 

3632 P<4*2)=2 

3633 RETURN 

3640 ? "THE HELLHOUND ATTACKS VOU AND BI 
TES VOU OIOLENTLV" 

3641 CHD=CHD+1 

3642 P<4,2>=3 

3643 RETURN 

3650 ? "THE HELLHOUND GROWLS AND SEEDS T 
0 PREPARE FOR ANOTHER ATTACK" 

3651 Pc 4,2 i=2+INTc KNDc 0 1*2 > 

3652 RETURN 

3800 RED **** eOi'IB £*« 

3810 ? "THE NULL I TV BONE: IS HERE." 

3820 ? “THERE ARE THREE WIRES BETWEEN IH 
E“ 

3830 ? “BOOB AND THE TIDE ITECHANISii:A GR 
EEN" 

3831 ? "ONE <G)*A VELLOW ONE (Vi AND A R 
ED ONE <R>“ 

3832 ? !? "VOU DUST DISCONNECT TWO OF TH 
Ef'i TO STOP IT" 

3840 ? “WHICH WILL BE THE FIRST ONE?" 
3845 INPUT Xx$ 

3850 ? "AND THE SECOND ONE?" 

3855 INPUT VV$ 

3857 CB=0 

3860 Q$="VRG“ 

3861 FOR T=1 TO 3 

3865 IF XX$<1*1)=Q:KT*T> OR VV$< 1,1 i=Q$< 
T * T i THEN CB=CB+1 
3870 NEXT T 

3880 IF CB<2 THEN ? "WATCH OUT! WRONG IN 
PUT!“:GOTO 3840 

3900 IF A6SC ASCC XX4i-ASCc VV$ i i=l 1 THEN G 
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0 TO 3938 

3985 GRAPHICS us? “ENORNOUS EXPLOSION 
HUSHROOH CLOUD! ! “ 

3918 END 

3938 ? “CONGRATULATIONS!!! YOU SUCCEEDS 
D WHERE EUERVONE ELSE FAILED" 

3950 END 

4008 REN « BARBECUE #* 

4818 IF IUW=0 THEN GOTO 4060 
4038 IF <U<2>=IKn> AND <U<12>=IKN> THEN 
IUW=8: Ck 8 >=IKf1: UC 2 >=0: UC 12 )=0: p< 6*2 >=2 
4068 GOTO 4060+10TFY &,2> 

4870 ? "THERE IS A GIANT BARBECUE HERE" 

4871 ? "WITH A LARGE FIRE UNDER IT“ 

4872 RETURN 

488® ? "AN ENORf'IOUS FLASH LIGHTS THE PLA 
CE“ 

4881 ?_“AND A PENETRATING SHELL FILLS VO 
UR NOSE" 

4082 P<6*2>=3 

4083 RETURN 

4098 ? "EUERYTHING IS QUIET NOW" 

4091 ? “EUEN THE TERRIBLE SNELL FADES" 

4892 P< 6,2 ;■=! 

4893 RETURN 

4808 REN » LOOK IN OWNINGS » 

4810 IBZ-0 

4820 FOR 1=1 TO IBNAX-1 
4830 IF B<I>=IUWB THEN LET IBZ=I:I=IBHAX 
-1 

4848 NEXT I 
4850 RETURN 

4860 REN PUZZLE » 

4865 CRO=CRO+1 

4870 IF IKiT=0< CRO ) THEN CRI=CRI + 1 

4875 IF CR0<8 THEN RETURN 

4888 IF CRI=8 THEN GOTO 4915 

488:5 PRINT “STRANGE THINGS ARE HAPPENING 

it 

4890 PRINT "AN ABSOLUTE DARKNESS CODERS 
YOU AND IT FEELS AS IF AN INUISIBlE FO 
RCE IS LIFTING YOU" 
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4895 ? “FOR ft CIOCIENT YOU ORE UNCONSCIOUS 

49O0 CRO=l:CRI=l 
4905 IKC1=1 
4910 RETURN 

4915 ? “YOU HEftR ft STRftNGE SOUND LIKE SO 
(lETHING IS BEING PUSHED HftftV" 

4920 ? “NOW IT HftS STOPPED“ 

4925 K<2*1>=3 
4930 RETURN 

5000 KEI'l #*# initial ization ### 

5010 ? “< ESCXSHIFT >< CLEftR >< ESC>£=3<ESC > 
<TftBXESCXTftB>8 8“ 

5020 ? “< ESC X TftB X ESC X TftB >8 I. T. 

8" 

5030 ? “X ESC X TftBXESC X TftB >6 8 

5040 ? “XESCXTftBXESCXTftB>8P1ease wait 
8 “ 

5050 DIH K< 36*6 >*R#: 540 >*H« 165 > 

5060 Dlfl P<6*3>*P$<60>*UX 12>*U$( 144i 
5070 Dili BX12>.D<8> 

5100 RED ### connections **# 

5110 FOR 1=1 TO 36 
5120 KX 1*1 >=I+1:R< I *2 >=i-l: KX 1*5 >=U 
5130 K< I*3>=1+4:KX I*4>=I-4:K< I * 6 1=0 
5140 NEXi 1 

5150 FOR 1=0 TO 24 STEP 12 

5160 FOR J=1 TO 9 STEP 4 

5170 K<1+J+3*1>=0:KU+J*2)=0 

5180 NEXT J 

5190 FOR U=1 TO 4 

5200 K< I+J+8*3)=0:KX I+J*4>=0 

5210 NEXT J:NEXT I 

5230 KX 1 *5 >=16: KX 7,5>=15 

5240 KX 32*8 >=13: KX 13*5 >=32 

5250 KX 35*6 >=18: KX 18,5 >=35 

5260 FOR 1=1 TO 15 

5270 REftD U:REftD W:LET KXU*W;'=0 

5290 NEXT I 

5300 REi'l ## initialize parameters ### 
5310 IKn=36: IB2=l: IBftftX=l: CKPM3 
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5340 CLL=0:BLL=0:CWD=0:CR0=0:CK1=0 
5400 REf'l ### fill arrays ### 

5405 Din W$Cl5):DIfi XX$C 15) 

5409 H$= “ “: H*C 165 >= “ “ ■ H$C 2 >=H$ 

5410 FOR 1=1 TO 15 

5420 HERD WJ: H$C CI-l)*ll+l,I*ll >=YY$ 
5430 NEXT I 

5435 0$=“ “:U$C 144)=“ “:U$C2)=U$ 

5440 FOR 1=1 TO 12 

5450 READ YY$: U$C C i-1 )*12+1 - 1X12 )=YY$ 
5400 NEXT 1 

5465 P$=“ “:P$C60)=“ ": H$C 2 )=P$ 

5470 FOR 1=1 TO 6 

5460 RENO VY$: P$< < 1 -1 >*10+1 * IX10 >='t'V$ 
5490 NEXT 1 

5495 R$=“ “:R$C540)=“ “:R$C2)=R$ 

5500 FOR 1=1 TO 36 

5510 RENO YY$:R$CC1-1)X15+1,1X15 )=VV$ 
5520 NEXT 1 

5530 FOR 1=1 TO 12:RENU D:OCI>=D:NEXT I 
5560 FOR 1=1 TO 6:RENO 0,E 
5570 PC 1,11=0: p< 1,21=1: PC 1,3 )=E 
5590 NEXT I 

5600 FOR 1=1 TO 8:REND E:DC1)=E:NEXT I 
5700 RETURN 

6000 ONTO £NST,H£Sf,NORTH,SOUTH,UP,DUHN, 
K.ILL,HElP,TNKE,DROP,INOENTORY,BNNDH6 E,LH 
NTERN ON,LNNTERN OFF,REND 

6010 ONTO LHNTERN, HHENTP1LE,HHT eFISNCK , CO 
OKBuOK,LEHFLET,BNND hGES,SHORD 

6011 DOTH COOKIE,BODY OF i.T.,6 INNl CORP 
SE,SLICED SnHKE,DEND HOUND 

6020 DNTN I. T. ,f'IONSTER,SNNKE,HELLHOUND,B 
DUB,BARBECUE 

6030 DNTN RESET CNOE,I-CNOE,SECRET CORKI 
DOR , CONTROL ROOI'I, O-CNUE, I -CNOE, SPRCE UNO 
E , BLNCK ROOTI, P-CNOE ,E-CNOE , N-CNOE 

6032 DNTN El'IPTYNESS,ST'lHLL CHUE,ROCKY CHO 
E,SHELLY CNOE,DRNGON CNOE,SNNKE CNUfc,YEL 
LON CNOE,STRENiT BHNK,STINKY PlNCE 

6033 DNTN FOOD CHuE,FiNNL CNOE,COLORED C 
HOE,ICE CNOE,OPEN PlNCE,HOODS,HOODS,HOOD 
S,HOODS,HOODS,HOODS,HOODS,HOODS 
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6035 

t;w40 

6050 

6060 


DATA HOODS,WOODS,AOuDS 
DATA 33,30,28,21,14,15 
DATA 34,2,16,15, IT,4,2! 
DATA 1,5,3,10,11,2,6,2 


13,0,0,0,0,0 
,2,8,1,25,1 
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The Wolf and the Five Little Goats 

A Grimm’s fairy tale? No, an intriguing board game! This game is played on a 
checkerboard displayed on the screen. As the game begins, the goats are scat¬ 
tered throughout the lower half of the board and are represented by little 
squares containing a number. The wolf stands at the upper left-hand corner of 
the board. 

Off we go — you are the wolf, and the computer controls the goats. You 
win if you eat three goats, and the computer wins if one of the goats eats you. 
(These wolf-eating goats are amazing creatures!) 

You may start. On the lower part of the screen you see: 

STILL . . . MOVES 
for example 

STILL 2 MOVES 

The number of moves always lies between 1 and 3, and tells you how many 
steps you may take during your turn. The wolf — in other words, you — may 
move horizontally or vertically, but never diagonally. Each move must be 
entered by using the I, J, K and M keys as cursor keys. If the last move of a 
series of moves brings you on a square with a goat, the goat is yours. You may 
never cross a square that has a goat on it. 

There are 5 goats in all, and they may jump over each other. Goats can 
move only in one direction. The number of steps they may move is shown on 
the goats themselves, and is always between 1 and 5. For instance, if a goat 
bears the number 3 he can move 


109 



3 steps to the left, or 
3 steps to the right, or 
3 steps forward, or 
3 steps backward 

He cannot move 1 step forward and 2 steps to the left. If you (the wolf) have 
moved to a new position the computer shows 

NOW IT'S MY TURN 

When it is your turn, the computer shows 
STILL . . . MOVES 

At the end of the game the computer either tells you 
YOU WIN! 

or worse 

YOU LOSE 

10 REl'l ##### The woit Wnd ##### 

##### The b L i ttie Goat,* ##### 

20 Lill‘1 P< 4*2 TSt 1 > 

30 OPEN #2,4,8.“K:OPEN #3,4,0,"$:“ 

40 GRAPHICS 18 
50 GOTO 1000 
50 GOTO 1000 

39 REi'l ### initialize ### 

100 RBI'I I N= 1: RBPIftX= 10: KBl'i I N=5: KBl'lfiX= 14 
110 RH=RBI‘I IN: KW=KBPI IN: CIRX=-400: BEwT=0 
120 ? ujoifCFJLUJ 9 oatsi 2 " 
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138 FOR 1=8 ru a 

148 ? #b;“ ." 

158 NEXT i 
168 FOR 1=8 10 4 

1 ?8 PC I fti 1=1 NTT S*RNO< 8 > >+R6i'lIN+5 

188 PC 1,1 i=INTC 1 0XRNDC 8 > >+KBl'l 1N 

138 R< 1,2 >= 1 N IX jXRNLk 8 :■ ;+l 

288 POSITI ON F\M),PU,8;: ? #6 ;PC 1, 2 ) 

218 NEXT 1 

220 POSITION KM,Rh:? #S;“w“:eH=2 
230 RE IURN 

233 REfl input and move ### 

380 FOR BW=BN TO 1 STEP -1 

318 POSITION 2,11 

328 ? #6;“ stiii " ;t>H;" moves " 

330 GET #2,T)0UE 

348 ORW=< TI0UE=61 HNO RH< R6C1HX >-< TI0UE=45 
HNO RN>RBTI1n > 

350 OKW=< T100E=42 MNO KW< KBf'IHX 1-C TI0U£=43 
MNO KW>kBfilN> 

368 IF DRW+0KN=8 THEN 338 
378 POSITION KW+OKH,RW+ORW:GET. #3,X 
388 IF CHR$CX)<>“. “ HNO SWOT THEN 338 
398 POSITION KH,Rw:? #6;“.“ 

480 RW=RW+ORw:KW=KW+OKW 
410 POSITION KW,RW:? #6;“w" 

420 NEXT BN 
430 FOR 1=0 TO 4 

448 IF RW=P<1,8) HNO KW=P<1,1) HNO PC 1,3 
)<>8 THEN PC 1,2 X=0: B£HT=BEHT + 1 
458 NEXT I 

468 BH=INTC 3XRN0C 8 )+l ): POSITION 2,11 
470 IF BEHT=3 THEN ? #6;"8 you win CHJ 
8":GET #2,X:END 

488 ? #6 i "Know it-EGJs my turnt" 

438 RETURN 

433 RET! ### status »## 

508 ST HT =8 

518 IF RSXRBTIIN OR RS>RB(‘IHX OR KSXKBCIIN 
OR KSNCBTTHX THEN RE I URN 
528 0=HBS< RH-RS >+HBSC KW-KS1 
530 IF D=BH THEN RETURN 
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540 IF D=BM-2 THEN STPIT=-200 

558 IF D=0 THEN 8THT=500:SOTO 640 

560 IF D<=5 THEN SThT=SThT+35 

570 IF RS=RH THEN STHT=STHT+40 

580 Ih KS=KW THEN STTTT=STOT+40 

590 IF HBSC Pt 1,0 >-RW .)+HB8< PC 1,1 :—KH )=BH 

THEN STRT=STOT+80 

600 FOR 1=0 TO 4 

610 IF RSOPC T,8> THEN 61HT=8THT+10 
620 IF K9< >FX T» i ? THEN STHT=3THT+1@ 

630 NEXT T 

640 IF STAT+RNDC 0Xi'THX THEN RETURN 
650 HflX=STftT: IITHX=I:Rf'lHX=R9: KfTfiX=K8 
660 RETURN 

699 RETT *## evaluate goats ### 

700 T(HX=-400 
710 FOR 1=0 TO 4 

720 IF P<1,2i=0 THEN 810 
730 K8=P< 1,1 RS=P< 1,0 )+P< 1,2.) 
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740 GOSUB 500 

750 RS=P< 1,0 :>-f\ 1 ,21 

760 GOSUB 500 

770 RS=P< 1 ,0 >: KS=P< 1,1 >+K I,2> 

780 GOSUB 500 

790 KS=P<i,l>-P<1,21 

800 GOSUB 500 

810 NEXT I 

820 RETURN 

899 RETT #*# move goat ### 

900 POSITION PC liiHX‘,1 Jj.PT IITHXSO;- 
910 ? #6 i".“ 

920 P< IiTOX,0 TMRTTRX: P< Il v lHX,l )=KT'lHX 
930 P< ITIHX ,2 j=lN T ( 5XRNCK 0 .:■+1 ;■ 

940 POSITION Kmx,RCTMX:? #6;FX TflMX,2 > 

950 IF f , iflX<400 THEN RETURN 

960 POSITION 2,11 

970 ? #6;“ Ryou lose EHJR 

980 GET *2,X:£NU 

999 REf'l ##### mam program ### 

1 @00 GOSUB 100: REf'l initialize » 
1010 GOSUB 300:RET’I input fc move # 
1020 GOSUB 700: REf'l evaluate -goats # 
1030 GOSUB 900: RETT move goat # 
1040 GOTO 1010 
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Spring 

A number of well-known computer games are based on fairly straightforward 
physical equations. For instance all those ‘lunar landing’ games use an equation 
which gives a position as a function of time when the initial position and 
velocity and the acceleration due to gravity are known. 

SPRING is also based on a physical idea, or to be more precise, a physical 
fantasy. Imagine a spring with one end fixed to the centre of your computer 
screen and a ball attached to the other. If this were a normal spring, when you 
stretched it and let it go the ball would simply bounce back and forth. This 
however is an unusual spring, subject to some very mysterious forces which will 
cause the ball to move in a most peculiar manner — as you will soon see! 
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10 REP1 #*#######♦ S P r I n g #«######## 

20 GRAPHICS 24 

30 SETCOLOR 1,0,IS:COLOR 1 

48 SETCOLOR 2,RAD« 8>$16,6 

50 SETCOlOR 4jRNLK 0 >$16 ..6 

60 REfl starting pos. & spring constants 

70 X=RND< 0 >$309.5+4.5 

80 V=RND< 0 >$185.5+2.5 

90 AX=RND< 8 >$50+5: BV=RND< 0 >$50+5 

100 PLOT X»V 

110 REf'l compute velocity & displacement 
120 UX=U*K 159.5-X VAX: X=X+<JX 
130 UV=UV+<95.5-VVAV:V=V+UV 
140 DRAATO X j V 
150 6010 120 
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Apollo 2000 

Remember July 1969 .... that ‘giant leap for mankind’ when Neil Armstrong 
stepped onto the moon. When we recall the excitement felt throughout the 
world on that day it’s hardly surprising that so many movies and computer 
games take space travel as their theme. 

In Apollo 2000 you control a space module on its journey to a planet. 
After the RUN command you can choose your destination — any of the nine 
planets in our solar system or the mysterious planet named RANDOM. Having 
made your choice the planet’s landscape will appear on the screen, revealing the 
plateau on which you are to land. 

There is a choice of 2 levels of play. Level 1 is relatively simple. Level 2 is 
a bit more difficult because now your module is in orbit around the planet. 

Vertical movement is controlled by the keys 0-9, where 0 gives no boost 
from your landing rockets, while horizontal movement is achieved by using the 
keys and . Once a key is pressed, your module will maintain its direction 
and velocity until you change their values. All relevant data are displayed on 
the screen. 

10 REN ######### fippollo 2008 ######### 

20 0in C$(. 20 >,£#< 1 @ >,PL$< 28 ) 

38 OPEN #2,4,0,"K:“ 

40 GOTO 3288 

99 REN ### input ### 

108 IF FUEL<=@ THEN POKE 656,3:P0KE 657, 

21:? "TANK EITPTV M < ESC >E< 2 >3";: 6149=0: H 

6=0:06=0:RETURN 

110 IF PEEKX764>=255 THEN 168 

128 OET #2,X:X=X-48 

138 IF X>=0 HND X<=9 THEN HG=8:6flS=X:G0T 
0 158 

140 H6=10*<< X=l4)-<X=12 )> 

150 GG=GflS+flBS<H6 > 
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160 IF G6*INT<=FUEL THEN RETURN 
170 TEk.=FUEL-Gb£l NI ■ IEK=l+7EK'''bb-'lNI 
180 3 hC = TEKXOUC■ Hb= TEK*H6: 00—UW-S+MBoi. Hb 
190 RETURN 

199 REN 4#4 computation »#* 

200 blVOUTOU’ R=R0+Hb'T - F'HR— I NT 
210 0HU=HU:6QSUB 600 

220 00IS=DIS:60SUB 500 
230 0uEL=UEL:SOSUB 400:UEL=FUN 
240 OH6T=H6T:60SUB 300:HbT=FUN 
250 TI f'IE=T IPIE+1 NT: FUEL=FUEL-b(Stcl N T 
260 IT=H0T+FUEL*S6 
270 RETURN 

299 REFi ##* compute neui lie i gtn *## 

300 F UN=UHGT+PHR2TOUEL+PHRTCC1HU+uHU V2x 
4-JfVR V£vR ) > 

310 IF 609=0 THEN FlETURN 

320 FUN=FUN+EFTXbH8''6NXC ■; PfiR-fVGW i*L0bC IT 

,'i !i-6HSF'FlR > i+F'HK ;■ 

330 RETURN 

399 REN 4#4 compute neui velocity ### 

400 FUN=QUE'L+PhR/R*C C HU+OHU V2/4-JIVR > 
410 IF bftS=0 THEN RETURN 

420 FUN=F UN+EFF Sa3flS-''GWfL0b< (VC IT-bHXPHR ;■ > 
430 RETURN 

499 REN 4## compute neui distance ### 

500 019=00IS+C OHU+HU V2SPHR: RETURN 

599 REN 4#4 compute neui n. velocity ### 

600 IF HS=0 THEN RETURN 

610 HO=OHU+HEFFXHbTPwFt'H: RETURN 
699 F:EN ### move ship ### 

?00 X=INTCBNSE+10+001SxHSC+0.5 > 

710 V=INTC HB-5-0H6TV9C+0.5 > 

720 COLOR 0:bOSUB 900 

730 X=INTCBHSE+10+0I8-TTSC+0.5) 

740 IF 7X5 OR X>154 THEN RETURN 
750 V=INTC HB-5—HbTVSC+0.5 7 
760 IF VCS OR V>91 THEN RETURN 
770 COLOR 2: bOSUB 800 
780 RETURN 

799 REN *## Plot snip ### 
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800 PLOT X-l,V-5sDRfiWTO X+2,V-5 
810 PLOT X-2,V-4:DRfiWT0 X+2,V-4 
828 PLOT X-3,V-3:DRfiWTO X+3.V-3 
830 PLOT X,V-2:DRfiWTO X+3,V-2 
840 PLOT X»V-1:DRfiWTO X+3,V-1 
850 PLOT X-3,V-2:DRfiWTO X-3,V-1 
860 PLOT X-3,V:DRfiWTO X+3,V 
870 PLOT X-3,Y+l:DRfiWTO X+3,V+1 
880 PLOT X-4,V+5:PL0T X-5,V+5 
890 DRfiWTO X-2,Y+2: PLOT X+4,Y+5 
900 PLOT X+5,V+5:DRfiWTO X+2,V+2 
910 RETURN 

999 REN ##* output values ### 

1000 POKE 656,0:POKE 657,11 
1010 ? C*iINT<OELX100V100J 

1020 POKE 657,29:? C$i INK FUEL*100 V108 
103® POKE 657,11:? INT<H6TX100l/lUO; 
1040 POKE 657,23:? C$;INKTTr'IEX100X"100 
1050 POKE 657,11:? C*;INT<HU*180V100J 
1060 POKE 657,29:? CfilNTXNX100V188 
1070 POKE 657,11: ? CS i I NT < DISX1 DO V100; 
1080 POKE 657,29:? C$;6fiS; 

1090 IF W5<0 THEN ? “ < “ i 
1100 IF H6>0 THEN ? " >“; 

1110 RETURN 

1199 REfi ### check position of ship ### 

1200 X=INT<6fiSE+10+DIS^HSC+0.5 > 

1210 Y=INT<H6-5-HGT/'SC+0.5> 

1220 REfi # out of range- # 

1230 IF X<5 OR X>154 OR V<5 THEN 1400 
1240 REfi # beneath platform # 

1250 IF XXEifiSE OR X>BfiSE+20 THEN 1338 
1260 IF H6T<=0 THEN S$=“Platform“:GOTO 1 

t‘00 

1270 IF UEL<0 OR 0UEL>8 THEN 1330 

1280 I NT 1=0: INT2=INT: EF‘S=1.0E-03 

1298 IF H6T<=0 THEN INT2=NUL:60T0 1610 

1300 fiOR=400:GOSUB 3108 

1310 PfiR=NUL:GOSUB 300:H6T=FUN 

1320 IF H6T<=0 THEN INT2=NLIL: GOTO 1610 

1330 REfi # too lodi 
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1340 IF V>?4 THEN S$=“surface“: GOTO 1880 

1358 REf'l # touching planet 

1360 LOCATE X-5,V+5*C1:LOCATE X+5*V+5*C2 

1370 IF 01=1 UR C2=l THEN S*=‘'surface“:G 

OTO 1800 

1380 RETURN 

1399 REf'l ### out of range ##* 

1480 ? “ <ESOC<2XKESOE< CLEAR >3 
FLVING OUT UF RANGE" 

1410 ? “ CONUNICATIONS LOST !" 

1420 60SU8 76® 

143® SOUND 0*68*10*15:6OSUB 1588 
1448 SOUND 0.128,10*15:G0SUB 156® 

1458 SOUND 8,8*0*0 

1468 ? “<ESOC=3 Try again ?“* 

1470 POKE 764*255:GET *2*X 
1480 IF X< >89 THEN 2230 
1490 POP :POP :GOT0 3230 

1499 REN ### "ait ##* 

1500 FOR W=1 TO 78:NEXT W:RETURN 

1599 REN ### crash or land ? ### 

1600 INT1=8:INT2=INT 

1618 EPS=1.0E-83:ADR=300:60SUB 3108 
1620 PAR=NUL: 60SUB 480:U£L=FUN 
1638 TINE=T1NE+NUL 
1640 IF UEL<LANUEL THEN 1808 

1699 REN ### land !! ### 

1700 GRAPHICS 8:SETCOLOR 1*0,0:SETCOLOR 
2*11*7 

1718 ? “< ESC>C< CLEAR >3< ESC>C=3< ESC >C=J 
Vou are landed saveiy on “*PL$ 

1720 SUR=108:GOSL© 1760 
1730 ? “<ESC>C=3 No damage.“ 

174 ® v "<ESC>C=3 Vour mark for this lan 
di ng: “ ; INK 5+UEL/2>+5 
1758 60SUB 2208:RETURN 

1760 ? “<ESC>[=3 Speed: “;INT<0ELS188V 
100;:? “ m^s." 

1770 ? "<ESC>C=3 Time: “ j I NT< TI NE*11® V 
100 ;:? 

1780 ? “<ESC>C=3 Survived crew: ";SUR;“ 

*/ fa 
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1790 RETURN 

1799 REI1 ##* crash ! ! *## 

1800 80SUB 700 

1810 IF X<5 THEN X=5 

1820 IF X>154 THEN X=154 

1830 IF V<5 THEN V=5 

1840 IF V>74 THEN Y=?4 

1850 FOR L=15 TO 0 STEP -1 

I860 SOUND 0*30*9,L:SOUND 2*120*8*L 

1870 SOUND 2*120*0*L:SOUNO 3*140*0,L 

1880 COLOR 0:GOSUB 2100 

1890 COLOR 2:S0SUB 2100 

1900 NEXT L 

1918 GRAPHICS 0 

1920 SETCOLOR 1*0*0:SETCOLOR 2*3*7 

19-30 ? “ < ESC >C< CLEHR >3< ESC >C=3< ESC >C=3 

you are crashed on the “}SS 

1940 ? “<ESC>E=3 on planet “ ;PL3 

1958 Sl1R=0: IF hBS< UEL X30 THEN SUR=10O-I 

NTT HBS< UEL >/0.3T 

i960 OOSUEf 1760 

1978 ? “<ESC>C=3 Carnage: 

1980 IF UELT-15 THEN ? “un“* 

1990 ? “reparable.“ 

2000 ? “<ESC>C=3 Vou created a crater, 
depth.: “ ■, I NT< 1.56*ftBS< UEL ) VI0* “ m. “ 

2010 60SUB 2200:RETURN 
2100 FOR 1=0 TO 5 
2110 PLOT X-I*V-I:PLOT X,V-I 
2120 PLOT X+I,V-l:PLGT X+I*V 
2130 PLOT X+I*V+l:PLOT X*V+I 
2140 PLOT X-I*V+I:PLOT X-1*V 
2150 NEXT I:RETURN 
2199 REfl ### again ? ### 

2280 ? “< ESC>C=3< ESC >E=3< ESC>C=3< ESC >C=3 
Do you uiant ariother time ; 

2210 POKE 764*255:GET #2*X 
2220 IF X=89 THEN RUN 
2230 POKE 82*2:6RRPHICS 0 
2240 END 

2299 RQ1 *## choose planet #*# 
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2300 GRAPHICS 2:SETC0L0R 2,0,0 
2310 ? #6;“V0UR ['ll SSI ON IS TO“ 

2320 ? #6i“LAND safely ON A PLANET." 
2330 ? #6;“V0U CAN FIRE FUEL TO"; 

2340 ? #6;“CONTROL THE LANDING." 

2350 ? #6;“0-9 UERTICAL AND" 

2360 ? #6j“< OR > HORIZONTAL." 

2370 ? #6:? *6;“WHICH PLANET ?“; 

2360 ? “0: WMKK'l 1:NERCURIUS 2: MENUS 


2390 ? “3:EARTH 4:NOON 5:NAPS" 

2400 ? “6:JUPITER 7:SATURNUS 8:URANU 

S“ 

2410 ? “9:NEPTUNUS ???“; 

2420 GET #2,PLs PL=PL-48 

2430 IF F1_=0 THEN F-L=INTcStWTNCK01+l ) 

2440 FOR 1=1 TO PL 

2450 READ F6*,COLOR,N1,R0,F0,H0,EFF,HEFF 
2460 NEXT I 
2470 RETURN 

2499 REN ### planet data ##* 

2500 DATA nERCURIUS,l,3.29E23,2.24E6,160 

,350,10000,500000 

2510 DATA U£NUS,2,4.87E24,6.05E6,200,500 
,10000,500000 

2520 DATA EARTH,9,5.97E24,6.37E6,200,600 
,10000,500000 

2530 DATA f100N,5,7.35E22,3.8E5,208,500,3 
0000,300000 

2540 DATA NARS,3,6.39E23,3.4E6,200,500,1 
0000,500000 

2550 DATA JUF'ITER, 11,1.9E27,7.1467,200,2 
500,20000,500000W 

2560 DATA SATUFfNUS,4,5.69E26,6E7,200,200 
0,10000,2000000 

2570 DATA URANUS,0,8.72E25,2.6E7,160,400 
, 10000, 1000000 

2580 DATA NEPTUNUS,13,1E26,2.42E7,180,28 
0,10000,1000000 

2599 REN ### initialize I ### 

2600 W6T=2500:S6=10:LANUEL=-10 

2610 C$=“ < ESC>C+3<ESC>E+3<ESC:> 

C+3< ESC >L+J<ESC >C+3< ESC >C+3<ESC >L+1 <ESC > 
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C+3< ESC >C+3< ESOC+3 “ 

2620 J=6.6?E-11: Jfl=JXfl 1 
2630 RETURN 

2699 RED ### Plot planet ### 

2700 6R0PHICS 7:SETCOLOR 0,COLOR,6:SETCO 
LOR 1,10,7:SETCOLOR 2,1,8 

2710 BHSE=INT(RNO<0>*130>+5 

2720 H=INT<RND<8>*28)+59 

2730 COLOR 1s Xl=@:X2=BfiSE-l: 60SU8 2830 

2740 C0L=2:HEf=H:l=H:K=H+2 

2750 COLOR COL:PLOT BHSE+20,K 

2760 DRNWTO BOSE+20,I:ORHWTO BftSE,l 

2770 POSITION BOSE,K 

2780 POKE 765,C0L:XI0 18,*6,0,0,"9:“ 

2790 IF C0L=2 OMQ H<77 THEN C0L=l:I=H+3: 

K=79:60T0 2750 

2800 Xl=80SE+2l:X2=l59 

2810 COLOR 1:60SU8 2830 

2820 RETURN 

2830 FOR I=X1 TO X2 

2840 PLOT I»H:DRHWTO 1,79 

2850 IF H>79 THEN H=78:60T0 2880 

2860 IF H<59 THEN H=60:GOTO 2880 

2870 H=H+INT<RNCK0>*3>-1 

2880 TEXT I 

2890 RETURN 

2899 RET) ### initial.ze II *## 

2900 TIfE=0:INT=0.5:GflS=0:H6=0:FUEL=F0 
2910 UEL=0:ClUEL=0:H6T=H0:OH6T=H0 
2820 R=R0+HGT:H=W6T+FUEL*SG 

2930 ? “<ESC>C<CLE0R>3 ***** “;FL*; 

w *‘ 

2940 ? “<ESC>C=3 LEUEL <1 OR 2>: ?“i 

2950 SET #2,LEO!IF LEU<49 OR LEO>51 THEN 
2930 

2960 HO=StlR( JJVR >*< LEU=50 ): OHU=HO 
2970 HSC=5*SQFK U1VR V160 
2988 DIS=-HSC*< EfHSE+5 >:ODIS=0IS 
29* SC=HGTAH6-10> 

3080 POKE 82,0:PUKE 752,1 

3010 ? “<ESC>C<CLEFlfi>3Speed <U. >: 

Fuel :“ 
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3020 ? “He i ght : j, me : •• 

3830 ? “Speed <H .>: Weight 

3040 ? “Distance : Trottle:“; 

3050 RETURN 

3099 REfl #*# root finder *## 

3100 NUL=lE+88 

3110 PWR=INT1:GOSUB W0R:FUN1=FUN 
3120 PflR=INT2:GOSUB W0R:FUN2=FUN 
3130 NULO=NUL 

3140 NUL=INTl-<1NT1-1NT2)*FUN1AFUN1-FUN 

2 > 

3150 RWR=NUL:GOSUB WDR 
3180 IF HEfS< NUL-NULQ XEPS THEN RETURN 
3170 IF FUNXFUN1<0 THEN INT2=NUL:FUN2=FU 
N:G0TO 3130 

3180 INT1=NL1L:FUN1=FUN:uOTO 3130 

3199 FEN ##### mam program ##### 

3200 6DSUB 2300:REIT choose planet # 

3210 60SU6 2600:REfl initialize I # 

3220 GOSUEf 276©:REfl Plot planet # 

3230 GOSUEf 2908: REPI initialize II * 

3240 6GSU8 700:REfl move ship * 

3250 GOSUEf 100:REfl input- # 

3260 GOSUEf 200:RET) computation # 

3270 GOSUB 1200:REN check pos. # 

3280 GOSUB 1000:REfl output values # 

3290 GOTO 3240 
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At the Market 


Have you ever wandered through a market and been amazed at the speed with 
which the salesmen can add up a list of prices? Play this game with your family 
and find out how good a market trader you would make. 

You will see pairs of numbers of increasing length which you have to add 
up. You will soon find out that this isn’t as easy as it sounds. To see why, 
consider the sum 

75856 
+ 37637 

Normally you would add the numbers in the right hand column first, then the 
column next to it, and so on. With the computer, however, you must enter the 
answer starting with the left hand column. It is this difference that makes the 
game so tricky. 







How many numbers can you add correctly within the time limit of about 
one minute? Can you beat our record of eight? 


10 REM *#######* fit- !>■€- Hark e t. 

28 oin rsos) 

.30 0=1: POKE 13*0:POKE 20*0 
40 T 1=1 N7X RND< 0 >¥10"-H > 

50 IF Tl<10 A <0-1> THEN 40 
60 12= I NT< RND< 0 > 1 10-'4i ) 

?0 IF T2<10 A <0-1) THEN 50 
80 ? :? Ti:? T2*“ +“ 

80 FOR B=0 TO H:PRINT “-"j:NEXT E: 

100 •? :? “Hnswer INPUT HNS 
110 IF 0NS=T1 + T 2 THEN 140 
120 ? “Hrorig* it is- : "FT 1 +T 2 
130 0=0-1:SOTO 140 

140 IF PEEK-; 20 >+F'EEK< 13)*256<3600 THEN 0 
=0+1:GOTO 40 

150 ri=INT<RNCK0>*10^0>:IF TKlO^H-l) T 
HEN 40 

160 ? :? "Vour score is : ";0 
lF;5 '? "job specification: " 

170 FOR 1=1 TO 0:RE0O 0$:NEXT I:? 0* 

180 ? “Tn'io : “ »1 Nil( F'EEkX 20 l+PEEKX 13>$2 
56V0.6 V100i“ seconds" 

190 -? "Qo you want tci play again " j: 1 NF'U 

T'" 04' 

200 IF 040*1 >=“V“ THEN RUN 
210 END 

220 O0T0 Try aga i n,Sctoolk id,paper-boy ,ij 
lerk, 0 uto dealer- 

230 DOTH Broker,D■ rector,0 11 magnate,il 11 
i7onaire,Norid crampion 
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Fallout 

At the start of this simple but absorbing game you will see eight horizontal bars 
with gaps in them. Above the bars are eight checkers which can fall through the 
gaps. In this example 


© © ® © © © © 



checker 2 has already fallen into a gap. The object of the game is to get all 
eight checkers through the bars. You can do this by moving the bars to line up 
the gaps for the checkers to fall through. 

To move a particular bar enter a command of the form 

BDS 

where 

B is the number of the bar (the bars are numbered from 1 at the top to 8 
at the bottom) 
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D is the direction you wish to move it (L for left, R for right) and 


S is the number of steps the bar has to be shifted. 


For instance 


3R12 


moves bar 3, 12 steps to the right. This might sound like a very simple game 
but when you actually start playing it you will find that it provides quite a stiff 
test of your ability to think logically. 

10 REf'l *####*#*# Fall o u t ######### 

20 DIM G3K 153 > , 153 i , ROT'; 17 i 

30 DIM BLT< 1 >,BHT< 1 ).K8l 

40 POKE 752,1 

50 GOTO 800 

98 REM ### initialize 

100 BLT=“ ":BHT="B t'“ 

110 GT=BLT: GT< 1 7 >=BLT: GT< 2 >=6T 
120 G$< 18 s 8$< 153>=Bft*:8$<l9 >=GT< 18 ) 

130 FOR V=1 TO 8 
140 FOR B=1 TO 4 
150 X= I NT< RND( 0 )% 17+1 > 

180 GT<V*1?+X,V£1?‘+X>=“ * 

170 NEXT B 

180 I < V )=2*V: GT< K V > , I < V > 1=81 RT< V > 

190 NEXT V 
200 RETURN 

299 REl'l #*# draw screen *## 

30@ HT-=GT 

310 ? " <ESOC<CLERRT3< ESC >C=3SC0RE: 

TURN:« 

320 POSITION 10,1:? SC; 

330 POSITION 26,1:? TO; 

340 POSITION 2,5 
350 FOR B=0 TO 8 
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360 ? B*“ “jHT<B«7+1*<B+1 >*17> 

370 NEXT B 
380 RETURN 

399 REPt #*# input- ### 

480 POSITION 10*22:? 11 <ESC><SHI FT>< BACK 

S TENTER PiOUE 

410 INPUT ROT 

420 RC=HSC< ROT< 1,1 > >-48 

430 IF RC<1 OR RC>8 THEN 400 

440 01=< ROT<2*2 >= “R" >-< ROT < 2*2 >=“L“ ) 

450 IF DI=0 THEN 400 
460 TI =UHL< ROT< 3 > > 

470 IF TKl THEN 400 
480 RETURN 

499 REIT ### drop checkers ### 

500 FOR 8=1 TO 8 

518 I=KI8>: J=I+l?s IF I <0 THEN 630 
520 IF HT< I, I >=BLT OR HT< 1*1 >=BftT OR HTt. 
J*J)OEsLT THEN 630 

530 I<8 >=J: HT< J * J >=HT< I * I > : HT< I * I >=BLT 
535 IT1=INT<< 1-1 VI7>:P'IU=INTT< J-l Vl7> 
540 ITI=INK < 1-1 VI 7 ): ITJ=INK < J-l VI? ) 










550 POS IT I ON 3+d-17«U , fi.J+5: ? HT; J ,J)s 
560 POSITION 3+1 -17$TU , IT I +5:BLT; 

570 IF J<137 THEN 620 
580 SC=SC+UHL< H$<0,J)> 

590 R B )=-l: HT-( J , J >=BLT 
600 POSITION 10.f1:?' SC; 

610 POSITION 3+ J-17&N J , fi.J+5': ? BUT 
620 B=0 
630 NEXT B 
640 RETURN 

699 REIT ### sh i ft bar ### 

700 ROT—17XRC+1,1 ?*< RC+1 > ) _ 

710 IF 01=1 THEN HTT 17XRC+1,17XRC+1)=ROT 
c. 171: HTt 17*RC+2,17*<RC+1 l >=R0$'; 1,16 T: GOT 
0 730 

720 HTH1 ?%< RC+1 )#1 7t< RC+1 > )=ROT« 1,1): H# 
17XRC+1,1 ?*< RC+1 >-l >=KOT< 2 > 

730 POSITION 2,5+RC:? RC;“ ”;H« 17*RC+1 j. 
17*( RC+1 )) 

740 FOR B=1 TO 8:R=INR< RED-1 > T7) 

750 IF RCOR THEN 760 

760 IF KB)=RC*l?+8*DI+9 THEN RG)=fiCXl? 


—9x01+9 

770 KB)=I<B)+DI 
780 NEXT B 
790 RETURN 

799 ROT ##### its m program ##### 

880 80SUB 100:REiT initialize ft 

810 60SU6 300: REIT draw -screen # 

820 RC=1:60SUB 500: REIT drop c nee k ere# 
830 GOSUB 400:RET! input * 

840 FOR 0U=1 TO IT 

850 GOSUB 700= REIT shift bar # 

860 GOSUB 5*00: REIT drop cnecKers # 

870 NT=NT+l:POSITION 26,i:? NT; 

880 NEXI 00 

890 IF SC<36 THEN 830 

900 SC=0:NT=0 


910 POSITION 2,22:? “<ESC><SHIRT>■<BUCK S 
>0nce more 11 ; 

920 INPUT ROT:IF R0T<1,1X>“V“ THEN GRHP 
HICS 0:END 
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930 ? “<ESCX SHIFTXBOCK S>Same situatio 
n INPUT Rus 

940 IF RO$< 1,1 X >"V'* THEN RUN 
950 H$=6$:60T0 Si8 
1499 REi'l »#### main program 44444 
1508 60SUB 100: RETT initialize * 

1518 SUSUB 200: REIT draw screen 4 
1515 RC=1 s 60SUB 300: REIT 
1520 60SUB 680: REI'l input # 

1530 FOR DU=1 TO TI 

1540 GOSUB 400:REH shift 

1542 GOSUB 300: REIT drop 

1550 NT=NT+l:POSITION 26,1:? NT; 

1568 NEXT DU 

1570 IF SCI 36 THEN 528 

1568 END 
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Ship's Attack 

First, let’s describe this game as realistically as possible. In the lower half of the 
screen is a shape like this: 



Little squares fall down from the top of the screen. You must move the shape 
using the joystick or the cursor controls . 

-«*-and-► 

to stop the squares hitting it. If that sounds dull what about this . . . 

You are captain of one of the finest spaceships in the universe. As you 
cruise majestically through the Milky Way you can’t help feeling proud of the 
magnificent vessel under your command. Then just as you are nearing the 
harbour and the end of your voyage is in sight, disaster strikes — 

A FLYING SAUCER ATTACK! 

How can you escape these unfriendly invaders from across the universe? Why 
not try your 

SUPER ATOMIC ESCAPE MOTOR? 

The more flying saucers you avoid, the more points you get. That sounds 
better, doesn’t it? Anyway, the game is fast, simple and great fun to play, and 
that is all that matters. 
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10 REf'i *#**###* Ships's HttacK ####*###* 
20 Did SH$<3)#NS$(3>»ttU$< X 1 > 

30 OPEN #2,4,0,“K:* 

40 GOTO 500 

99 RECI *## initialization **# 

100 SH4^“eCKlOC-:“: N8T=.. “ET3“: NB 

%=■• “ 

110 Pu=0:UPL=9:PL=10:6V=23 
120 ? “ <ESC>E<CLEARXl< ESC/-C=If Enter level 
: “i:INPUT LE 

130 GRAPHICS 17:POKE 756,226 

140 SETCQLQR 0,0,0 

150 ? #6;“ GSHIPSG eATTACKG“ 

160 POSITION PL-1,23:? #S;SHS; 

170 RETURN 

199 RECI #** move ship ###***** 

200 OPL=PL:K=0 

210 IF PEEKt 764X >255 THEN GET #2,K 
220 PL=F‘L+< K=42 >-< K=43 >+< S'TICK< 0 >=? >-< ST 
I CK< 0 >=11 > 

230 IF PL=OPL THEN RETURN 
240 POSITION OPL-1,23:? *6iNST; 

250 IF F'L< 1 THEN PL=1 

260 IF PL718 THEN F'L=l8 

270 POSITION PL-1,23s? #6;SHS; 

280 REiURN 

299 RECI #** brop bullet ### 

300 POSITION BX,Bv:? *6;NB4i 
310 6Y=8V+1+LE 

328 IF BV<23.5 THEN 390 

330 IF H£:S';BX-Pl.5>1 THEN 340 

335 FOR W=50 TO 250:SOUND 0,W,0, 16 :NEXT 

H: SOUND 0,0,0,0:? “■< ESC>[< CLtAR >3% ESC.>C= 

jyou have ";PO-l;“ points. “: END 

340 BX=F‘L+1 NT< < 3-LE TXC RNCK 0 )*3-1 > ) 

350 IF BX<1 THEN 6X-1 
360 IF BX>18 THEN BX=18 
370 6Y=LE:P0=P0+1 

380 FOR W=100 TO 50 STEP -3:SOUND 0,W,1O 
,15:NEXT N:SOUND 0,0,0,0 
390 POSITION 8X,BV:? #6;BUS; 

400 RETURN 
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49S REf'l ##### main program ##### 
5@y GOSUB 1 00: REf'l mmai ization # 
510 GOSUB 200: REf'l move ship # 

520 GOSUB 300: REf'l drop t>uxlet # 

530 GOTO 510 
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Mini Mancala 


MINI MANCALA is based on an old Arabian game. It is played by moving stones 
between cups. There are four cups: A and B are the computer’s, and C and D 
are yours. At the start of the game there are two stones in each cup. 



A (computer) B (computer) 



C (you) 



In turn, the players take the stones from one of their own cups and distribute 
them counterclockwise to the other three cups, one stone per cup. For instance 
you might choose to move the stones from cup D like this: 
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C (you) D (you) 


After this move cup D is empty. In fact, there will always be at least one empty 
cup, because during each move stones cannot be put back into the cup from 
which they were taken. 

To win the game you must get all the stones into your own cups. 

On the computer, the cups are represented by squares with numbers on 
them indicating the number of stones they contain. You can choose the level of 
difficulty you prefer, 1, 2, or 3 (1 being the easiest), and who has the first 
move. The computer will ask which of your squares you wish to move the 
stones from and will tell you what its own move is. The position of the stones 
on the board is displayed after each move. 

You may be surprised that this complicated game can be described in such 
a short program. The diagram shows all the possible moves, and is an excellent 
example of how a strategic game can be represented schematically. 

This game was created by C. Freeling. 
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10 RED ######### limi-l'lancaia *######## 
20 Dill fKl,l>,L<3,ll 
30 OPEN #2,4,0,“K:“ 

40 GOTO 200 

99 REfl ### initialize if## 

100 FOR 1=0 TO 1 

110 n< 0,1 1=2:1'K 1,11=2 
120 FOR L=0 TO 3 
130 REND i'!:L(L,l )=X 
140 NEXT L 
150 NEXT I 

160 DOTH 0,1,1,0,0,0,1,1 
170 RETURN 

199 REN ### display boat'd ### 

200 GRAPHICS 18 

210 POSITION 4,0:? #6;“mini[i'lUmanca 1 a “ 

220 ? #6: ? #6:? #6;" 6A-86“ 

230 ? #6*“ 6!62 6!6 26!6“ 

235 ? #6; “ 6!-!6“ 

240 ? #6;“ 6!62 6!6 26!6“ 

250 ? #6;" 6C-06“ 

260 RETURN 

299 REfl ### input- ### 

800 POSITION 0,10 

310 ? #6f"6TI0UE STONES FROl'l CUP <C,D) ?6 

H . 

320 POKE 764,255:GET #2,X 

330 IF X=S? AND i'K 1,011-0 THEN L=i:? #6;C 

HRs<Xi: RETURN 

340 IF X=68 AND f'l<l,l)>0 THEN L=2:? *6;C 

HR$< X ): RETURN 

350 SOUND 0,20,10,15 

360 FOR 7=1 TO 100:NEXT 7 

370 SOUND 0,0,0,0 

380 GOTO 300 

399 RED ### computer's turn ### 

400 POSITION 0,10:? #6;“noui itCGJs my tu 
rn[A3 

410 FOR A=0 TO 500:NEXT w 

420 w=n< 0,0 )xi000+n< 0, i ixioo+m 1,01x10+11 
< 1,11 
430 L=3 
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44® If l'K8,01>0 HNO <LEU%3 HNO KNCK 0 1XLE 
U<0.4 OR I'K 0,1 1=8 OR 0=1400 OR 0=1340 OR 
0=6110 OR 0=1160> THEN L=0 
450 POSITION 0,10:? #6;“GI PIOUE STONES f 
ROfl CUP jCHFtK 65+< L=3 ) 1; 

460 RETURN 

4S9 REIT ### spread stones ### 

500 6=UL,0):H=UL,D 

510 IF I'K 6,H 1=0 THEN RETURN 

520 L=L+1:IF L>3 THEN L=L-4 

530 I=L<L,8i: J=L';L,1 1 

540 iF 1=6 HND ._i=H THEN 520 

550 60SUB 600:GOTO 510 

590 REIT ### move one stone ### 

600 I'K G,H>=H< 6,H 1-1: I'K 1,0 >=H< I , J1+1 
610 POSITION 7+4+H,4+2*6:? #6;I'K 6,H) 

620 POSITION 7+4*0,4+2*1:? #6;I'K 1,01 
630 FOR N=1 TO 200:NEXT H 
640 RETURN 

699 REIT *#### main program #*#*# 

708 60SU6 100:60SUE: 208 

710 ? #6:? #6:? #6;“ENTER LEUEL C1-3l?" 

728 GET *2,X:LEU=X-48 

730 IF L£U<1 OR LEU>3 (HEN 720 

740 POSITION 0,10:? #6;“WHO STHRTS? YOU 

OR TIE ?" 

750 GET #2,X:IF X=89 THEN 738 
768 60SUB 300: REIT input * 

770 GOSUB 5180: REf'T spread stones # 

788 IF I'K 1,11=8 THEN POSII ION 0,9:? #6;“ 
you win":GOTO 838 

798 GOSUB 400:REIT computer's turn # 

800 GOSUB 500: REIT spread stones ♦ 

818 IF I'K0,81=8 THEN POSITION 0,3: #6;" 

I win":GOTO 838 
820 GOTO 768 

830 ? #6; “00 YOU HUNT TO f'LHV NGN IN ? 

840 POKE 764,255:GET *2,X:IF X=89 THEN K 
UN 

850 END 
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Stop It! 

Although this is only a short program it gives rise to a fast and exciting game. 
The screen looks like this 



The square on the left has a letter on it. When it moves across the screen you 
must try and stop it in the region bearing the same letter by pressing any key. 

At the start of the game the computer requests a level of difficulty (1 is the 
easiest, 2 is harder and 3 is the most difficult) and asks you how many times 
you want to play. You’ll be shown your score at the end, for instance 

Your score is 0 out of 10 (0%) 

Never mind, better luck next time! 
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10 REl'T ######*## S T - o p I t ######### 
20 DIf'l BU$(. 1 

rn ? “<ESC>£<CLEAR>J<ESC>£<=>JEnter levs 
1 of d i f f i culty ■; i-3 “ i • INF'U I' D1: DI =25- 

e&DI 

40 ? "<ESC>C<=>JEnter number of turns :“ 
i : 1 NPUT NT 

50 GRAPHICS 18:60SUB 800 

80 SETCOlOR 8,4,6 

7‘0 SETCOLOR 1,8,15 

80 SETCOLOR 2,12,18 

90 POSITION 11,0:? #6;“GCaCbCc£de“ 

100 FOR RO=l TO 11 

118 POSITION 11,ROs? #6i“G£ £ E EG" 

120 NEXT RO 
130 TO=TO+1 

140 f:n= 1 mT < RNtX 0 >£4 :>: BU?=CHR*t CO+65+32 > 

158 R0= 1+2X1N11 RND< 01X8 > 

155 POKE 764,255 

188 FOR C=0 TO 18 

170 POSITION C,RO:? #6;“ ";BUT } 

180 FOR DE=1 TO DT:NEXT DE 

190 IF PEEK< 764X >255 OR PTRIGK 11=0 OR S 

TRI6>; 0 >=0 T HEN C=C+1:GO 10 218 

200 NEXT C 

218 POSITION C,RQ:? #6i" 

215 POSITION 11,RO:7 #6i*et £ C £6“ 

220 IF C<>12+2X00 THEN T=280:GGSU8 500:6 
OTO 258 

230 T=20:60SUB 500:HI=HI+1 
240 POSITION 0,0:? #6;HI; 

258 IF TLKNT THEN 130 

260 GRAPHICS 8:POSITION 5,5 

270 f' “‘four score is “iHl*“ out of “iNT-f 

“ c “ ; INK HI-'NTX100 >i 1" 

280 END 

508 SOUND 0,1,10,15 

510 FOR DE=l TO 5XDT:NEXT DE 

528 SOUND 8,8,8,0 

530 RETURN 

599 REIT if## change characterset ### 

600 TuF-PEEKX 1061-8 
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610 PUKE 204*TOP:POKE 206*224 

620 FOR X=1536 TO 1555 

630 REND U:POKE X*U 

640 NEXT X 

650 Q=USR< 1536 > 

660 ONTO 104*162*4,160*0*137*205,145*203 
, 200 * 208,249* 230*206* 230,204* 202 *208,242 
*96 

670 Rftf'ISET=T0P*256 

680 FOR X=RfifTSET+5S*8 TO RMI1SET+59X8+? 

690 POKE X,255 

700 NEXT X 

710 POKE 756*TOP 

720 RETURN 
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The Swedish Popsong 

A theme con variatone is a tune that, although it is based on one that has been 
heard before, has its own mood and identity. This game could be considered as 
a theme con variatone as it has some similarities with another game in this 
book, but presents its own unique challenge to the solver. 

You will see 16 fields filled with a random arrangement of As and Bs e.g. 


B 

A 

B 

A 

A 

A 

A 

B 

A 

B 

A 

B 

B 

B 

A 

B 


When you indicate one of the fields (enter ROW and COLUMN) all the letters 
on the horizontal and vertical rows through that field will be altered so that all 
the As become Bs and vice versa. Your aim is to end up with a screen which 
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looks like this: 



18 REfi *##### BaBa *##### 
20 DIN Be 4,4 > 

30 GRAPHICS 18 
40 OPEN *2,4,0,“K:“ 

50 GOTO 500 

93 REN #*# initialize #*# 
100 FOR R=1 TU 4 
110 FOR C=1 TO 4 


B 

A 

B 

A 

B 

A 

B 

A 
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120 BC R , C .5= I NT< 2*RNLK 0 > ) 

130 NEXT C 
140 NEXT R 

150 ? #6;" t'the swedisn popsongt"' 

160 POSITION 8*2:? #6#“1234“ 

1 i :, 0 POSITION 9*9:? #6*OHR$e 159> 

180 RE1 URN 

199 REiT #4# draw screen 444 

200 FOR R=l TO 4 

210 POSITION 6*3+R:? 46;R*" 

220 FOR C=1 TO 4 

230 IF B<R*C.3 THEN ? 46;"b";:GOTO 250 
240 ? #6i“a"; 

250 NEXT C 
260 NEXT R 
270 RETURN 

299 REIT #4# -set input, and flip 4#4 

300 POSITION 2*9:? #6;"trow £"• 

310 GET #2*R:R=R-48 

320 IF R<1 OR R>4 THEN 300 

330 FOR C=1 TO 4 

340 6eR,C>= NOT Be R*0) 

350 NEXT 0 

360 POSITION 2*9:? 46j“ecolumne“ 

370 GET #2*0:0=0-48 

380 IF C< 1 OR 04 THEN 360 

390 B<R*C>= NOT Be R,C> 

400 FOR R=1 TO 4 
410 BeR,C>= NOT 6<R*C) 

420 NEXT R 
430 RETURN 

499 REIT ##### main program ##### 

500 GOSUB 100:REP'I initialize # 

510 GOSUB 200:REN draw screen 4 
520 GOSUB 300:REIT input & turn 4 
530 GOTO 510 
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Vowels and Consonants 


This competition game can be played by the whole family. Unlike most other 
computer games, it does not involve numbers or arithmetic. At the start of the 
game enter the number of players, and then take turns to play. The computer 
will give you seven letters: when it asks you 

Vowel or Consonant (V,C)? 


enter V for a vowel or C for a consonant. When you have your seven letters the 
computer challenges you to make as long a word as possible out of them, using 
each letter once only. There is a time limit, shown on a clock on the screen. It 
is amazing how addictive a simple game like this can become. Try it and see! 

ltf Rtfl »#### bowels find consonants #*### 

20 OPEN #2*4*0* “K': * 

38 ? “<ESC>C<CLEAR>3<ESC>£<=ONumber of 

Players INPUT NP 

40 Did P0< NP )*CHS$< 21 1 >*LE$< 7 ) 

50 FOR F'=l 10 NP: F‘0< F' )=8: NEX T F' 

60 GOTO 900 

99 REI'l ### initialize screen #*# 

100 GRAPHICS 19 

110 ? #6*“PLR.:“!? #6 i" PTS.:“ 

120 FOR F-l TO NP 

130 POSITION 4+3&P*0:? #8*P 

140 POSITION 3+3S:P, 1 

150 IF POCPX10 THEN ? #6*“ “* 

160 ? #6;P0<. P ) 

170 NEXT P 

180 POSITION 0*3:? #6j“turn of playertZD 
" ; CHFiTT F'L+1 6 ) 

190 POSITION 0*5:? #6*“0vowel or consona 
nt EH3VCL3C£06“ ;CHRTt 159 >; 

200 POSITION 0*11 

210 ? #6;"Gtirae left£ 2 J sec£N36“j 
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220 POKE 20,0:POKE 19,0:POKE 18,0 
230 RETURN 

299 RED ### CIock ### 

300 Tl=< F€EK< 18>X65536+PEEK< 19 >*256+PEEK 
< 20 > V60 

310 POSITION 11,11 

320 ? #6;60-INTt TI*10V10 

330 IF TI>60 THEN POSITION 0,11:? #6;“ti 

me is up! 0 pts. SOUND 0,250,10,15:P 

OP :RETURN 

340 RETURN 

399 RE ('I ### choose characters ### 

400 FOR 0U=1 TO 7 
410 60SUB 300 

420 IF F’EEK( 764>=255 THEN 410 
430 GET *2,IN 

440 IF IN=8S THEN CHS$=“HEIOU“:GOT0 478 
450 IF IN=6? THEN CHS$= “BCDFGHdKLPINF'QRST 
UNXVZ":GOTO 470 
460 GOTO 410 

470 IN=INT< RND< 0>XLEN< CHS*>+l > 

480 LE*< DU >=CHS$t IN, IN > 

490 POSITION 5+2*DU,6 

500 ? #6;CHR*< flSCt LE*< DU > )+32 ) 

510 NEXT DU 
520 RETURN 

599 REI'I ##* input, word ### 

608 LE=G 
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610 GOSUB .300 

620 IF F'EEKX 764>=255 THEN 610 
630 GET 42,IN 
640 IF IN=155 THEN RETURN 
650 IF IN=126 AND LE>0 THEN POSITION LE¬ 
INS:? #6 ;“ “;:LE=LE-1:GOTO 610 
660 IF IN<65 OR IN>90 THEN 610 
6?0 LE=LE+1: CHS$< LE >=CHR$< IN > 

680 POSITION LE- 1 , 8 :? # 6 ;CHR$<IN+160) 

690 GOTO 610 

699 REIT ### compute points ### 

700 IF LE=0 OR TI>60 THEN RETURN 
710 FOR 60=1 TO LE 

720 FOR C=1 TO 7 

730 IF CHS& CO,CQMJE* C,C > THEN LE$<C,C 
>="<ESC><BACK S>60T0 788“ 

740 NEX T C 

750 POSITION 0,9:SOUND 0,200,10,15 
760 ? 46 ;“wrong letters used CFO" 

770 RETURN 

780 NEXT CO 

790 F'0< F'L >=POc: F'L >+LE 

800 POSITION 0,9 

810 IF LE<7 THEN ? #6;“900dEK3 “;:SOUND 
0,30,10,15:6010 830 

820 ? # 6 ;“eccelentDQ “;:SOUNO 0,10,10,1 

830 ? 46 ; CHR$< LE+16 >;“ POintsCN3“ 

840 RETURN 

899 REIT ##### mam program ##### 

900 FOR PL=1 TO NP 

910 GOSUB 100:REfT initialize screen # 

920 GOSUB 400: REIT choose characters # 

930 POSITION 0,5 

940 ? # 6 ;“ 6 TTAKE A AORD OUT OF THESE: 6 “; 
950 GOSUB 600: REIT i riput word # 

960 GOSUB 700:REIT compute points * 

970 FOR M=1 TO 500:NEXT A 
980 SOUND 0,0,0,0 
998 NEXT F'L 
1000 GOTO 900 
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Astrology 

This program is based on a study made by the Dutch physicist and astrologer 
Dr. Ir. J. Van Slooten. He was a research worker at Philips laboratories who 
spent all his free time on astrology. He developed a theory that the phase of the 
moon at the time of birth was a very important astrological influence on a 
person’s character. After studying the lives of hundreds of people he con¬ 
cluded, ”... that the moon phase forecasts the extent to which the spiritual 
and emotional life, especially with respect to a person’s social environment, will 
develop and furthermore the role he or she will play in our society ...” 

The diagram shows the cycle of the moon’s phases. As there are three phases, 
waxing, full, and waning, so three types of person can be defined. 


Individualists: born in the waxing moon phase, they have waxing energy. They 
like to work on their own, have strong wills, and are not discouraged by 
physical discomfort 

Socialists: born in the full moon phase, they like to live in communities. Key 
words for these people are ‘compare’, ‘choose’ and ‘combine’. 
Cooperation is a dominant factor but there is also rivalry and envy 

Conservatives: born in the waning moon phase, they know that the light de¬ 
creases but will return again. They are careful and sure of themselves, and 
like to have everything under control 

These three types can be further subdivided to give twelve categories in all: 
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Pioneers are searchers, always ahead of the crowd. Their strength of purpose 
can sometimes make them appear stubborn 

< 3 -^ 

Coordinators like to be with other people, but feel that they are’more equal’ 
than their companions. They are romantic and strongly attracted to 
family life 



Realists look at the world in a very down-to-earth manner. They like to think 
that everything can be explained in purely physical terms 


Spiritualists are rather ‘other worldly’ characters. Philosophical in outlook, 
they are seekers after the unknown 


<©> 

Artists transform material in a creative manner. They can produce works of 
art, new products, or anything that did not exist before 
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Apostles are not themselves creative but spread the ideas of others to the world 
at large 


Helpers take on responsibilities to their fellows that might otherwise be ig¬ 
nored. They are helpful and caring to others 



Leaders also assume responsibilities but in this case for directing the lives and 
actions of others. They look forward where most people would prefer to 
look back 


Knights are fearless adventurers, always searching for new things to explore. 
Idealistic in outlook, they have a strong sense of honor 

0 
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Arbiters like to preside over the actions of others, they do not prejudge issues, 
but when they reach a decision they expect it to be obeyed 



Revolutionaries are dissatisfied with the world as it is. They tend to look on the 
bad side of things, and have a desire to change the world 


Prophets consider the world ‘from above’ bringing to bear the wisdom of the 
past. They may not always be listened to, of course 

O 

The program will tell you the phase of the moon on the day you were born. 
From this you can discover the secrets of your character! 
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10 R£fl #4#*## Noonphase astrology *###*# 
20 GRAPHICS 18 
30 OPEN #2*4*0*“K:“ 

40 GOTO 500 

89 REN ### read data #*# 

100 NUI , t=0 

110 GET #2*X:? #6*CHR$<X>» 

120 IF X=155 THEN RETURN 
130 NUN=NUI1* 10+( X-48 > 

140 GOTO 110 

199 REIT ### INPUT UHlM ### 

200 ? #6*“ G** moonphase 

210 POSITION 5*2:? #6;i“ENTER DOTE “ 

220 POSITION 0,4:? #6»“DNV DO? “i 
230 GOSUB 100: DO=NUTT 
240 ? *6*"riONTH PIN? 

250 GOSUB 100: PNNUP1 

260 ? #6; “VENR VVW? “i 

270 GOSUB 100:V=NUP1 

280 IF PK3 THEN PNT+12: V=V-1 

290 RETURN 

299 RETT ##* calculation ### 

300 T= 1 NTT 365.25*V >+ INK 30. 6*< N+1 >) 

310 T=<T+00-69403© V36525 

328 L0=350.737486+1236*T*360+30?*T 
330 LH=LR+6*K'60+51.18*T/3600 
340 Lfi=LfiR5.l?*T*T/3600 
350 L0=L0-INT<iJV3fc® >*360 
360 LP=INT< L0+0.5 > 

370 RETURN 

399 REP1 *## display result ### 

400 POSITION 0,8 

410 ? #Si“FIOONPH0SE = DEG. “ 

420 RETURN 

430 NUN=NUIT* 10+< X-48 > 

440 GOTO 410 

499 REN ##### mam program #**## 

500 GOSUB 200: RETT input. data « 

510 GOSUB 380:REPI calculation # 

520 GOSUB 400:REN display result # 

530 GET #2,X:RUN 
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Does your brain get enough exercise? Are your wits as sharp, or your 
reactions as quick, as they should be? Tone up the muscles of your 
mind with this enthralling collection of arcade and action games, 
puzzles, brainteasers and competitions for your microcomputer. 

Battle with GALACTIC MONSTERS and ZOMBIES IN THE SWAMP, 
defend yourself against a SHIP'S ATTACK, and set out on a 
nerve-jangling SHARK HUNT. 

If you survive all that you can gamble at LAS VEGAS A GO GO 
and the KENTUCKY DERBY, plumb the mysteries of the BL/\CK BOX, 
and stretch your mind with intriguing board games like ONE TO FIVE, 
SHAKESPEARIAN SHUFFLE, and MINI MANCALA. Then,test your 
intellectual capabilities with VOWELS AND CONSONANTS, 
KEYBOARD MEMORY, and AT THE MARKET. Will you turn out to be 
a GENIUS AT WORK? 

By now you'll be razor sharp and ready for anything, which is just 
as well because you are not even halfway through yeti There's even 
more excitement, skill and fun for you, your family, and friends. So test 
your reflexes and mental prowess on this extraordinary obstacle course. 

What are you waiting for . . . on your marks, get set . . . GOI 
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